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2F88 
2FS8R 
2Fan 
2F90 


2F92 
2F94 
2F97 
2F99 
2F9B 
2F9E 
2FRA 
2FR3 
2FAS 
2FR6 
2FA7 
2ЕНВ 
2FA9 
2FRC 
gFRE 
2F B0 
2FB2 
2FB5 
2FB7 
2F BA 
2FBC 
2FBE 
2rca 
2FC1 
2FC4 
2ЕС5 
2FC? 
2FCR 
2FCR 
2FCC 
2ЕСІ 
2Fna 
2FD2 
2FD4 
2FDS 
2FD6 


asp? 
9518 
арс 
asnE 
аза 
й5Е2 
Й5ЕЗ 
asES 
95Е6 
aüSES 
asEB 
asEn 
Й5ЕЕ 
ASEF 
OSF1 
asr2 
Й5ЕЗ 
05F4 
05F7 
asra 
OSFA 
asrFc 
OSFE 
DSFF 


0602 
0603 
9606 
0607 
9609 
0606 
DEDE 
ABAF 
0611 
9615 
0618 
0619 
DELL 
061D 
9620 
9622 
9625 
0628 
9628 
ae2c 
йе2Е 
08631 
9632 
0633 
0635 
9638 
9639 
063B 
ЙЕЗЕ 
a63F 
9641 
9642 
9643 
0647 
064A 
096468 
ЙЕ4Е 
й64Ғ 
4651 
assa 
nese 


210902 LD 
1830 JR 
aRFDéS LD 
CES? BIT 
2039 JR 
3A?F68 LD 
CBS7 BIT 
200E JR 
213878 LD 
CB6E BIT 
2004 JR 
EE22 Aag 
77 LI 
AF OR 
Ci POP 
C9 RET 
213878 LD 
CBFE SET 
CBS6 BIT 
2505 JR 
2163902 LD 
1813 JR 
3ABF68 LD 
CBS? BIT 
2007 JR 
CEDE SET 
AF MOR 
2323A78 LD 
c9 RET 
CB96 RES 
213902 LD 
a9 ADI 
DE Ln 
c3 RET 
393878 LDI 
E681 AND 
28F6 JR 
AF OR 
Ei РОР 
c9 RET 
213873 LD 
CBS6 BIT 
2815 JR 
57 LD 
3A3A78 LD 
B? OR 
280F JR 
зс INC 
323A78 LD 
FE2R CP 
2802 JR 
AF KOR 
c9 RET 
CB96 RES 
AF KOR 
сэ RET 
57 LD 
213878 LD 
YE LD 
E618 AND 
2008 JR 
CBDE SET 
AF ADR 
323778 LD 
7A LD 
323673 LD 
C9 RET 
CB66 BIT 
202A JR 
3A3678 LD 
BA СР 
2021 JR 
ED4B4278 LD 
284478 LD 
7B LD 
CD352F CALL 
BA СР. 
CHD?2F ЈР 
FEO CP 
CRD?2F ЈР 
213873 LD 
CEDE SET 
CBE6 SET 
СВ96 КЕ5 
323778 LD 
c9 RET 
7A LD 
18FA JR 
3A3678 LD 
ЕН CP 
2808 JR 
3A3778 LD 
BA СР 
2802 JR 
AF KOR 
г9 RET 
ED4B2?8 LD 
2A4478 LD 
7E LD 
CD352F CALL 
BR СР 
2805 JR 
FEGA CP 
C2072F . JP 
213878 LI 


HL, 0209 
2FCA 

Я, CSFD) 
2.8 


М2, 2FCD 
R. (687F) 
2,R 

NZ, 2FA9 
HL. 7838 
5, CHL? 
NZ, 2FR6 
22 
Н>, 
A 

ВС 


HL: 7838 
Zs CHL) 
2, CHL) 
Z, 2F E7 
HL. 0269 
2FCA 

A. C68BF) 
2,R 

HZ. 2FCS 
2, (HL) 

A 
CPR3RD,R 


2, CHL) 
HL , 6239 
HL, BC 
R. CHL) 


A. (7838) 
81 

Z, 2FCA 
A 

HL 


HL, 7838 
2, (HL) 
Z, 05F3 
DA 

Я, (783R) 
A 


Z. 05F4 
A 


(783A), A 
2A 
2,Й5ЕҒ 

R 


2, CHL) 
A 


DA 

HL. 7838 
я, CHL) 
18 

NZ, 0507 
3, CHL? 

R 
(7837),R 


AD 
(78363, A 


4, CHL? 
NZ, 0635 
R, (7836) 
n 

NZ, 0632 
BC, (7842) 
HL, (7844) 
Н.Е 

2F35 

D 

Z.2FD?7 

da 

Z.2FD? 
HL,7838 
3, CHL? 

4. CHLÒ 

2. (HL> 
(2837 5,R 


A.D 
0625 

R. (7236) 
I 
2,0643 
Я, (7837) 


T 
2,0643 
A 


BC, (7842) 
HL, (7844) 
H.E 

2F35 

П 

2,0696 
йа 
NZ. 2F 07 
HL. 7333 


Nuovo indirizzo tabella 
Avanti 


Se CTRL non Premuto 


Se : non Premuto 


Eseguire INVERSE 


Nessun codice tasti 
Annulla indirizzo salto indietro 
Finito (return) 


Mette la flaa CTRL 


Se messa flag FUNCTION 
Muovo indirizzo tabella 


Se non Premuto RETURN 

Mettere flaa FUNCTION 

Hessun codice di tasti 

Mettere indietro contatore repeat 
Finito (return? 

Annulla flas FUNCTION 

Nuovo indirizzo tabella 
Addizionare offset 

Togliere codice tasti da tabella 
Finito (return? 


Se fla9 SHIFT о CTRL 

Nessun codice tasti 

Annulla indirizzo salto indietro 
Finito (return) 


Indirizzo flaa 


Se non FUNCTION 
Salvare codice tasto 
Contatore repeat 


Se à 
ӨЛЕН 
aumenta 


Se contatore = 42 
Nessun tasto 

Finito (return) 
Annulla flag FUNCTION 
Nessun tasto 

Finito (return) 
Salvare codice tasti 
Indirizzo Flag 


Se il tasto era 9ia^ Premuto 
Tasto Premuto 


Ultimo tasto = @ 


Tasto attuale 

dopo 7836 

Finito (return) 

Se tasto 9ia^ Premuto... 
Per la 2, volta 

Ultimo tasto 


Se tasto uguale 
BC e 
HL di nuovo indietro 


Interro9a i rimanenti tasti 
Se sempre ancora uguale 
Se nessun altro tasto 


Tasto premuto 

Tasto dia” Premuto una volta 
Annulla la fla9 FUNCTION 
Come ultimo segno 

Finito (return) 

Codice tasto dopo A 

Mette le Flags 

Ultimo tasto 


Se u9uale 
Penultimo tasto 


Se uguale 

Nessun tasto 

Finito (return) 

BC e 

HL di nuovo indietro 
InterroSa i restanti tasti 
Se tasto uguale 


Se altro tasto 


8653 
065E 
65р 
asg 
A661 
063 
9664 
a667 
066g 
AEGEE 
066E 


2FD7 
2F DA 
2FDC 
2FDE 
2FE1 
2FE2 
2FES 
2FE? 
2ҒЕЗ 
2FER 
2FEB 
2FEC 
2FEE 
2FFü 
2FF3 
2FF4 
2FF7 
2FF9 
2FFB 
2FFE 
2FFF 
3002 
3003 
3005 
3007 
2009 
300A 
3aan 
300E 
3011 
3012 
3015 
3017 
3019 
301A 


Caricamento da 


CEDE 
CBR6 
3H3678 
BA 
2005 
AF 
323778 
c9 
3R3778 
323678 
18F3 


213878 
СВЄЕ 
2825 
3A3A78 
3c 
323R?8 
FE2R 
2002 


3A3778 
c9 
CB?6 
2007 
CBEE 


SET 3, (HL) 
RES 4, CHL) 
LD Я, (7836) 
CP n 

JR NZ, 0668 
XOR A 

LD (7837), 
RET 

LD R, (7837) 
LD (7836) ,R 
JR 9663 

LD HL. 7238 
BIT 5, CHL? 
JR z, 3003 
LD R, (733A) 
INC A 

LD CPB3RPD,R 
СР 2A 

JR 2.2ҒЕВ 
ха ñ 

RET 

Ln R. CHL) 
AND DF 

OR 4a 

LD (7838).A 
XOR A 

LD (783A). A 
ВІТ 4, CHL? 
JR М2, 2FFF 
LD R, (7836) 
FET 

Ln A. (78375 
FET 

BIT 5, CHL) 
JR NZ, 300E 
SET 5, CHL?) 
MOR A 

LD (783A). A 
RET 

LD R, (783R)> 
INC R 

LD C?B3RD.R 
СР 96 

ЈЕ 2,2ҒЕЗ 
ХОВ A 

RET 

cassetta 


Questa routine carica un Byte da cassetta nel registro A. Tutti ali al- 


Tasto Premuto 
Tasto Premuto solo una volta 
Ultimo tasto 


Se altro tasto 


Penultimo tasto = ñ 
Finito (return? 
Penultimo tasto 
come ultimo tasto 


Bit 5 cambia Per repeat 


Aumentare... 
il contatore 


Se contatore = 42 
Nessun tasto 
Finito return) 


Annulla bit 5 
Mette bit 6 


Contatore = ñ 


Se tasto Premuto 2 volte 
Ultimo tasto come repeat 
Finito return) 

Penultimo tasto come repeat 
Finito return) 

Bit 6 cambia per repeat 


Contatore = й 
Finito Creturnò 
Aumentare il 
contatore 


Se contatore = 6 
Nessun tasto 
Finito (return) 


tri contenuti di registro rimangono invariati. 


INDI- 
RIZZO 
3775 
3776 
3777 
3779 
377C 
377E 
3780 
3781 
3782 
3785 
3788 
378B 
378C 
3780 
378E 
378F 
3790 
3793 
3796 
3798 
379A 
3798 
379C 
3790 
379F 
37A0 
37A1 
37A2 
37A5 
37A7 
37A9 
37AC 
37AE 
37B0 
3752 
37B4 
3787 
37B9 
3?BB 
37BE 
arca 
37C2 
37C4 
3706 
3708 
3708 
37ср 
ЗҮСЕ 
3701 
3702 
3713 
3704 


CONTE- 
NUTO 
c5 

ns 
9698 
CD8F37 
380E 
10F9 
ni 

Ci 
32037A 
CIF83A 
3AD37A 
c9 

nt 

C1 

c9 

cs 
Q1FF?F 
зяай68 
СВ? 
2808 
ав 


ASSEMBLER 
DISASSEMBLATO 
PUSH BC 

PUSH DE 

LD B. 0g 
CALL X 378F 

JR C,378C 
DIMZ 3/79 
POP DE 

POP BC 

Ln ZADIA 
CALL 3AF8 

LD я, 7803) 
RET 

POP DE 

POP BC 

RET 

PUSH BC 

LD BC,?FFF 
LD A, CERA) 
BIT 6.A 

JR Z. 37R2 
DEC BC 

Ln R.C 

DR Е 

ЈЕ NZ, 3793 
POP BC 

SCF 

RET 

LD Я, (6800) 
BIT 6A 

JR NZ. 3793 
LD Я, (6800) 
BIT 6A 

JR NZ. 3793 
LD B, 52 
DINZ 37B2 

LD R, (6800) 
BIT 6,R 

JR NZ, 37C4 
LD Я, (6800) 
BIT 6,R 

JR Z,3?BR 
JR 3790 

LD B.5R 

LD с,йй 

Ln A. CE8AA) 
БІТ &.R 

JR z, 37DR 
DINZ 3708 

LD AC 

ТЕС R 

RRR 

RL n 


COMMENTO 


Salva BC e 

DE 

Contatore Per 8 bits 
Leggere 1 bit 

Se errori 

Ciclo 

DE e 

BC indietro 

Salvare byte 

Chiedere Break 

Byte indietro 

Finito (return? 

DE e 

BC indietro 

Finito return) 

Salva BC 

TemPo di attesa massimo 
Porta di raccolta €?) 


Se segnale = ñ 


Ciclo di attesa 
BC indietro 
Segnala errori 
Finito return) 
Controlla ancora 
il segnale 


2. controllo 


Ciclo di attesa 


Se segnale = 1 


Attende fino a segnale = 1 
All'inizio 

Contacicli 

Bit = @ 


Se segnale = ü 
Ciclo 

Bit verso A 
Completare bit ñ 
Ruotare bit... 
verso П 


ZZZ IE TZ I N OSANO TI ZE NRE I EROI DIE NT ZE ROTA DIN ST TRS EINE S ere rer 


3706 
3707 
3708 
3709 
37DA 
37Dn 
27E6 
37E8 
37E9 
37EC 
37EE 
arra 
37F2 


C1 

7A 

B? 

c9 
3A0068 
CB?7 
20E7 
ac 
3A0068 
CB?? 
20DF 
10F7 
18DD 


POP 
LD 
OR 
RET 
LD 
BIT 
JR 
INC 
LD 
BIT 
JR 
DINZ 
JR 


BC 
A.D 
A 


A, (6800) 
GA 
NZ, 37CF 


с 

A. (6800) 
б,Н 

NZ, 37CF 
37E9 
3701 


Attende inizio registrazione 


Questa routine attende l'inizio di una registrazione in cassetta. 
Il nome della reSistrazione da caricare va dePositato da 7A9D e deve 


terminare con un byte nullo. 


INDI- 
RIZZO 
35E1 
3564 
35E7 
35ER 
3SEn 
35EF 
35F1 
35F4 
35F6 
35F8 
35FR 
35FC 
35FF 
3601 
3603 
3605 
3607 
360A 
3600 
360F 
3611 
3613 
3615 
3618 
361B 
361E 
3620 
3623 
3626 
3629 
362B 
362E 
362F 
3630 
3632 
3633 
3635 
3638 
363B 
363E 
3641 
3644 
3647 
364A 
3648 
364C 
3640 
364E 
3651 
3652 
3653 
37F4 
37F7 
37F8 
37F9 
3?FC 
37FE 
2300 
3801 
3802 
3804 
3807 
3808 
3809 
3800 
3800 
380E 
380F 
3810 
3811 
3812 
3814 
3817 
3818 
3813 
381C 
3810 
3820 
3822 
3825 
3826 
3827 
3829 
382A 
382B 


CONTE- 
NUTO 
214238 
CDF437 
CDF83A 
3A0068 
CB?? 
20F6 
CD8F37 
38F1 
CB47 
28F7 
0607 
СПВЕЗ? 
38E6 
19F9 
FE80 
20Е0 
CD7537 
DAE735 
FESSO 
28F6 
0604 
FEFE 
C2E735 
CD7537 
DRE735 
10Е3 
С07537 
32027A 
21B27A 
0612 
CD7537 


21B2?R 
CD1438 
21B27A 
119D?R 
1A 


E6ØF 
213F38 
85 

6F 
SEDA 
8с 

67 

[4 


RSSEMBLER 
DISASSEMBLATO 
LD HL, 3842 
CRLL 37F4 
CALL  3ñF8 

LD R. (6800) 
BIT 6A ў 
ЈЕ HZ, 35E7 
CALL — 378F 

JR C,35E7 
BIT AA 

JR 2,35Ғ1 
LD p.n? 
CALL 378F 

JR C,35E7 
DINZ  35FC 

CP 80 

JR NZ, 35E7 
CRLL 3775 

JP C,35E7 
СР 80 

JR 2.3607 
LD B,04 

CP FE 

JP NZ, 35E7 
CRLL 3775 

JP C,35E7 
DINZ 3613 
CALL 3775 

LD C?RD25,R 
LD HL,?7RB2 
LD B.12 
CRLL 3775 

Ln CHL), A 
AR A 

JR 2,3638 
ІМС HL. 

DJNZ 3628 

JP 35E7 

Ln HL: 385A 
CALL 37F4 

Ln HL, 7AB2 
CRLL 3814 

LD HL: 7AB2 
LD DE, 7A9D 
LD R, KDE» 
OR A 

RET 2 

СР (HL) 

JP N2,35E7 
INC HL 

INC DE 

JR 264A 

LD Я, (7840) 
OR A 

RET NZ 

LD DE, 71E0 
LD p.28 

Ln R. 28 

LD “DEILA 
INC DE 

DINZ 37FE 

LD R, (7840) 
OR A 

RET NZ 

LD DE. 71E0 
LD R. CHL) 
OR A 

RET z 

LD <DE), A 
INC DE 

INC HL 

JR 380C 

LD R. (7840) 
OR A 

RET NZ 

LD DE,?1E9 
PUSH HL 

LD A. <7AD2) 
AND ØF 

LD HL,383F 
RDD AL 

LD LA 

LD A nn 
ADC F.H 

Ln H.R 

LD R: CHL) 


BC indietro 

Bit doPo ñ 
Annulla il carry 
Finito (return) 
2. controllo 


Bit = 1 
3. controllo 


Ciclo 
Indietro 


Il tsPefla9 viene memorizzato in 7AD2. 


COMMENTOD 


Emettere... 
WAITING 
Richiedere Break 


Attende fino a segnale = Q 
Le99e un bit 

Se errori 

Testare bit letto 

Rttende fino a un bit = 1 
(езде... 

? bits 

Se errori 


Se Primo byte non е” 80H 
Leggere Prossimo Bste 
Se errore 


Se 80H 
Contatore Per 5ЖҒЕН 


Se il Byte non e“ FEH 
Leggere Prossimo Byte 
Se errore 


. Ciclo 


Salvare... 

fla9 tiPo 

Indirizzo buffer Per nomi 
Lunghezza massima 
Leggere byte е 

riportare nel buffer 


Se fine del nome 
Ciclo 

Errore => ancora una volta 
Emettere.., 
FOUND 
Emettere... 

il nome letto 
Home letto 

Home cercato 
Byte cercato 

Se ñ => finito 


Se non u9uale -> continuare ricerca 


Ciclo 


Indirizzo dell’ultima risa 
Contatore Per 32 caratteri 


Annullare riga 


Byte testo 
Se 0 -> finito 
su video 


Ciclo 


Indirizzo Per nome Y 
Salvare indice su nomi 
Flag tipo 


Indirizzo della tabella caratteri 
Addizionare A ad HL 


Caratteri di riconoscimento... 


382C 12 LD CDE),R su video 
3820 13 INC DE 

382E ЗЕЗН Ln A: 3A Due Punti... 
3530 12 LD (DE), su video 
3831 13 IHC DE 

3832 13 INC DE 

3833 Ei POP HL Indice su nomi 
3834 7E LD В, CHL? Controlla... 
3835 B? OR R Byte 

3836 C8 RET z Se finito 
3837 E63F AND ЗЕ Codice video 
3839 12 Ln «TIE». R su video 
383A 13 INC DE 

383B 23 INC HL. 

383C 18F6 JR 3834 Ciclo 


L^EDITOR DI VIDEO 


L^editon di video del Laser Puo” essere usato Per l'immissione di una 
ri9a con al massimo 64 caratteri. La chiamata di tastiera Per l'editor 
come Pen l'emissione video avverra” nella Interrupt nruotine; se il bit 
Ø di 7839H e^ à, l'editor е” in funzione. Se si Preme Return o Break, 
viene attivato questo bit e l'immissione ha termine. 

Una riga di immissione Puo” contenere caratteri ^inversi^ e segni 9ra- 
fici solo fra virgolette (77), altrimenti si avra” la segnalazione di 
SYNTAX ERROR. Oeni riga inizia sempre al margine sinistro del video. 


Per l'editor esiste una tabella da 7AD7H sino a 7AEGH. O9ni byte аррағ- 
tiene ad una risa di video e Puo” avere tre diversi valori: 


0A = questa riða di video forma con la Precedente una risa di immis- 
sione di 64 caratteri. х 

81 = questa risa di video forma con quella seguente una di9a di immis- 
sione di 64 caratteri, 

80 = questa risa di viedo forma una riða di immissione di 32 caratteri. 


Inoltre il bit 4 di 7839H ha un significato! quando viene attivato, 
l'editor si trova nel modo INPUT: il cursore non Puo” essere vertical- 
mente (oltre cioe” la linea fisica o logica di aPPantenenza), e l'e- 
ventuale testo emesso, la cui lunShezza e^ in C, viene considerato. 
Mel salto indietro, HL Presenta un Byte Prima dell^inizio della riða 
nel buffer di immissione, il testo termina con un bste zero. 

Se l'immissione е“ stata terminata con Break, e^ Posto la flag Carry, 


INDI- СОМТЕ-  RSSEMBLER COMMENTO 


RIZZO NUTO DISRSSEMBLRTO 

93E3 213978 LD HL, 7839 Passare dal buffer... 
ЙЗЕБ СВЕЕ SET S: CHL) all'emissione video 
03E8 282078 LD HL, (7820) Salvare i 


9ЗЕВ CD5300 CALL 0053 segni sotto il cursore 


OSEE 7C LD AH 

@3EF FE?1 CP 71 

йЗҒІ 2010 JR NZ. 0403 Se non ultima riga 

93F3 7D LD AL 

йЗЕ4 FEEQ СР Ea 

B3F6 2008 JR NZ, 0403 Se non ultima ri9a 

йЗҒЕ 3AD77A LD R. C?RD?5 

Ø3FB В? OR A Se Prima riða su video 

Ø3FC 2005 JR NZ, 0403 inizio di una ғіӘа di immissione 
93FE ЗЕӨр LD AOD CR 

9499 CD8B39 CALL 3088 emettere 

0403 41 Ln B.C LunShezza testo doPo В 

9494 C5 PUSH BC 

0405 213978 LD HL: 7839 

0408 СВ86 RES а, CHL) Inserire Cattivare? Editor 
040A — CB96 RES 2, «HL» La risa viene chiusa con CR 
040C СВ46 BIT 9, CHL) Attendere fino a che 

040E — 28FC JR Z. 040C RETURN o BREAK sono Premuti 
0414 3AA678 LD A, (78R6> ? (Posizione divisione colonna? 
0413  4F LD CA dopo C 

9414 AF XOR A 

0415 32A678 LD (?8R6),R ? (Posizione divisione colonna = 0) 
0418 47 LD BA 

9419 2A2078 LD HL, (7820) 

0416 ED42 SBC HL. BC 

041E 222078 LD (7820), HL Cursore su inizio riaa 

0421 11E879 LD DE, 73E8 Indirizzo del buffer 


0424 С1 РОР BC 


0425 213978 LI HL. 7839 

0428 CB66 BIT 4, (HL) 

042A 282078 LD HL, (7820) 

0420 2842 JR 2,0471 Se non INPUT 

042F C5 PUSH BC 

0430 ES PUSH HL 

9431 — CDR833 CALL 3388 Prendere fla9 Editor 

0434 El POP HL 

8435 СІ POP BC | 
0436 B? OR A 

0437 2008 JR NZ, 0441 Se non riga di prosecuzione 
0439 7D LI R.L 

943A D620 SUE zu HL indica... 

843C БЕ LD LA Su... 

9431 7C LI F.H inizio... 

043E ПЕйй SBC A ua della... 

0440 — 67 Ln H.R riQa di immissione 

9441 48 LD C. B Salvare B 

9442 1A LI! A, CIE» Confrontare buffer... 

0443 ВЕ GE CHL? con video 

8444 2007 JR NZ. 044D Se testo e“ stato modificato 
9446 23 INC HL 

9447 13 INC DE 

0448 10F8 DINZ 0442 Ciclo 

9449 — C5 PUSH ВС 

0451 ES PUSH — HL 


9452 сінвзз CALL 33A8 Prendere fla9 Editor 
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0455 
0456 
0457 
0458 
45 
0450 
045Е 
045Ғ 
0460 
9461 
0463 
9464 
0466 
0468 
046В 
046E 
046F 
0471 
0474 
0475 
0476 
0479 
047A 
047C 
047E 
0488 
0482 
0485 
0486 
0488 
048A 
848C 
948E 
048F 
0491 
0494 
0495 
0498 
0499 
249A 
043D 
949E 
4R1 
04R4 
0487 
0488 
04AB 
GARE 
бірі 
0483 
й4в6 
0489 
04BE 
Q4BD 
04ВЕ 
04BF 
й4с0 
0461 
943 
9464 
9466 
9469 
G4CB 
B4CE 
0400 
9402 
9414 
0406 
04D8 
0419 
84DC 
QADE 
ПАПЕ 
41 
04Е3 
04Е5 
й4Е? 
й4Е8 
04Е9 
D4ER 
O4EC 
O4EE 
04FG 
B4F2 
04F4 
04F5 
04F6 
ОДЕ? 
d4F9 
Q4FA 
O4FR 
G4FD 
G4FF 
508 
9592 
0505 
0596 
0508 
ЙБ 
й5йВ 
asc 
asap 
0518 
0513 
9515 
9518 
ASIA 


CRE303 
2RE278 
CDAFOF 
3E20 
CD5731 
C3E303 
FE22 
2031 
12 


CISSUO 
2004 
AF 


ADR 


HL 

BC 

BC 

80 
2,0466 
A: 40 

t 

BA 

DE 

E. 0A 

DE 

468 

B, 20 
HL., (7820) 
DE, 79ES 
R. (HL) 
1403 
BC, 0000 
BC 

HL 

33A8 

HL. 

80 

Z. 048C 
81 
2,0488 
BC, 0020 
A 

HL, BC 
B,40 
043E 

B, 20 

н, CHL) 
40 
C,04B9 


28A7 
R, (78E1) 
A 


Z, 03E3 
HL. (78E2) 
ЕНЕ 

A: 20 
3157 
ЙЗЕЗ 

22 
Н2,04ЕЕ 
(DE),R 


043 
B4F9 
5,A 

NZ, 04-4 
40 
CELA 
HL. 

DE 

ПАВЕ 

DE 

AD 

79 

NZ, 0595 
ALE 

EB 
C, 50 
Я, CIE? 
20 
2,049 
DE 

ñ 
(DE2,R 
33A8 
HL, (7820) 
81 

0053 
М2, 951E 
ñ 


Se risa con 32 caratteri 


Numero dei caratteri immessi... 
dopo B 


Nr. caratteri = 32 


Indirizzo del buffer 


La riða inizia al bordo del video 


Prendere fla9 Editor 


Se ri9a con 32 caratteri 
Se ri9a con 64 caratteri 


HL indica inizio... 
della ri9a di immissione 
Lunghezza della riga di immissione 


Lunghezza della riga di immissione 
Caratteri da video 


Se caratteri testo normali 


Indirizzo salto indietro... 
su stack 


Elaborare fine immissione 
Se BRERK 

“28YNTAX ERROR"... 
emettere 

RUTO-fla9 (non usare) 

(A е” semPre 0) 
Rll'inizio immissione 
Emettere... 

numero righe 

Emettere sPazio 


Nuova immissione 


Se non (77) 
Riportare nel buffer 


Se fine della ri9a di immissione 
Se normali caratteri testo 
Se carattere inverso 


Ianorare il colore 
R contiene il codice RSCII 


Se non seconde (77) 


Se non INPUT 


Portare in codice ASCII 
Caratteri in buffer 


Ciclo 


Portare in codice ASCII 
Caratteri in buffer 


Ciclo 
Buffer indietro 
Controllare Per sPazio 


Se non inizio buffer 


Se ra99iunto inizio buffer 


Se sPazio 


9 alla fine buffer 
Prendere fla9 editor 


Salvare carattere sotto cursore 
Se non 64 caratteri 
Emettere Й 


0518 
051E 
O51F 
9522 
9525 
9527 
952A 
952р 
852F 
0531 
9533 
9534 
9536 
9537 
053A 
053C 
9053F 
0540 
0541 
0542 
< 

3E29 
3E2A 
ЗЕ2В 
3E2D 
3E2F 
3E30 
3E31 
3E32 
3E33 
3E34 
3E35 
3E36 


Questa routine Porta il fla9 editor 
il cursore, 
< 


INDI- 
RIZZO 
< 


33R8 
33RB 
33RC 
33AD 
33AE 
33B1 
33B3 
33B4 
33B5 
33B6 
33B8 
33BB 
33BD 
33BF 
33C1 
33C3 
33C5 
33C8 
33C9 
33CR 


CD8B30 
RF 
CD8B30 
3R3878 
E6FD 
323878 
213378 
CB56 
2805 
ЗЕй1 
37 
1801 
AF 
213978 
CBR6 
21E879 
C1 

FS 

a9 
C3293E 


ТЕ 
B? 
2007 
3E20 
77 
23 
RF 
77 
2B 
2B 
F1 
сэ 


Ln 
OR 
JR 
LD 
LD 
INC 
XOR 
LD 
DEC 
DEC 
POP 
RET 


308B 

R 

308B 

Я, (7838) 
FI 
(7838),A 
HL, 7839 
2, (HL; 
2,0536 
Abi 


0537 

A 

HL: 7839 
4, CHL? 
HL, 79E8 
BC 

AF 

HL. BC 
3E29 


R, CHL?) 
A 


NZ, 3E34 
A: 20 
CHL) A 
HL 

A 
€HL), A 
HL 

HL 

AF 


dopo A. 
CONTE-  RSSEMBLER 
NUTO DISASSEMBLATO 
3RR678 LD R, (7BA6) 
4F LD CA 
AF XOR A 
47 LD BA 
2A2078 LD HL, (7820) 
ED42 SBC HL, BC 
E5 PUSH HL 
C1 POP BC 
78 LD R,B 
E60F AND ØF 
CB3F SRL R 
CB19 RR C 
CB39 SRL с 
CB39 SRL C 
CB39 SRL C 
CB39 SRL C 
210778 LD HL, ZAD? 
09 ADD HL, BC 
?Е Ln R, HL» 
c9 RET 


(Per corre99ere video) 
Emettenre... 
й 


Annullare flao INVERSE 


Se е” stato Premuto RETURN 
Mettere codice tasti... 
Per BREAK carry 


Annullare flao INPUT 
Indirizzo buffer 

Indietro lunghezza testo 
Salvare RF 

HL indica su inizio testo 


Se testo e^ stato immesso 
Inserire se9no... 
vuoto 


Inserire... 
ü 


HL segnala su inizio testo -1 
AF indietro 
Finito (return) 


alla risa video in cui si trova 


COMMENTO 


Posizione divisione colonna 


Поро BC 
HL = inizio riga 


BC = inizio riða 

Togliere indirizzo iniziale... 
della memoria video 
Dividere... 

Per... 

32 


Inizio di tabella fla9 
Rddizionare offset 
Fla9 doPo ñ 

Finito (return? 


LA R.O.M. 


DEL LASER 110/200/210/310 


A cura di G. Venturini 


Continua in questo numero la pubblicazione a dispense della R.O.M. 
relativa ai computers Laser 110/200/210/310. La memoria di sola let- 


SOFT 


tura, infatti, ë identica nelle quattro versioni. 


INDI- CONTE-  RSSEMBLER 
RIZZO NUTO DISASSEMBLATO 
3558 CI8C35 CALL 3580 
35558 Ø6FF LD B.FF 
35501 ЗЕЗӢ LI A: 80 
355:  CD1135 CALL 3511 
3562 CDESSA CALL 3RE8 
3565 18 RET c 

3566 10F5 DINZ 355П 
3568 0605 Ln Б,й5 
356A ЗЕҒЕ LD Я, РЕ 
356Сс  CD1135 CALL 3911 
356F  CDES3R CALL 3RES 
3572 D8 RET м 

3573 10F5 DINZ 356A 
3575 79 LD AC 
3576  CD1135 CALL 3511 
3579 CDESSA CALL  3ñES 
35⁄C ns FET C 

3570 3AD67A LD Я, (7RI6) 
3580 47 LD BA 
3581 119D7A LD DE. 7A9D 
3584 1R Ln я, (DE) 
3585 13 INC DE 

3586  CD1135 CALL 3511 
3589 10Ғ9 DINZ 3584 
3588 C9 RET 

358C  a61n0 Ln B. 10 
353E 119D7A LD DE, 7A9D 
3591 ?Е LD я, CHE? 
3592  FES3R cP 3R 

3594 2812 JR Z. 35A8 
3596 B? OR A 

3597 280F JR 2,3588 
3599 СЕ RST a8 

3591 22 DEFE С 
3598 . ?E Ln я, CHL? 
359C B? AR A 

3590 2809 JR Z, 35R8 
359F 23 INC HL 

350 FE22 СР 22 

352 2804 JR Z, 35R8 
35R4 12 Ln “DEDLA 
35A5 13 INC DE 

35A6  1üF3 DINZ 359 
35A8 AF XOR A 

35A9 12 LD <ПЕ),Н 
35AA 3E11 LD Н,11 
35AC 90 SUB B 

35RD 32D67ñ LD C?RDED,R 
3580 C9 RET 

388E DI8600 ADD A, CIR+OO) 
3891 D07700 LD C IX+00), A 
3894 ЗЕйй Ln A. aa 
3896  DD8EQ1 ADC R. CIK+A1) 
3899 рр77ӣ1 LD (1X+01), R 
389C C9 RET 

3RE8 B? OR A 

3AE9 AFD68 LD Я. (68FD) 
3REC СВ57 BIT 2A 
SAEE CO RET MZ 

3REF SADFES LD A. €68DF) 
3F2 37 SCF 

3RF3 СВ57 BIT 2A 
3AF5 Св RET 2 

3RF6 ЗЕ CCF 

3RF? C9 RET 

3AF8  CDEBSSR CALL 3RE8 
ЗАЕВ DO RET HC 

ЗАЕС El POP HL 

3AFD EI POP HL 

ZAFE 3A397838 LD Я, (7839) 


3BA1 E6B7 AND B? 


3B83 323978 LD C(7839»5,R 
ЗЕЙ6 ЗЕЙІ LD R. bi 
3B88 FB EI 

ЗЕЙ9 СЗАЙІр ЈР inna 


CHIAMATA DI TASTIERA 


COMMENTO 


Rifortare il nome nel Buffer 
255% 

Зан 

emettere 


Se Break 


5ж 
ҒЕН 


emettere 
Se break 


Emettere la 
fla9 tipo 


Se Ereak 

Lunghezza del nome 
secondo (doPo?) B 
Indirizzo del Buffer 
Home 


scrivere su cassetta 


Finito 

Massimo 16 caratteri 
Indirizzo del Buffer 
Primo segno 


Se 47:44 => nessun nome 
Se Й => nessun nome 


Controllate le viraolette 
Prossimo byte 


Se fine del nome 


Se fine del nome 
riportare nel Buffer 


Ciclo 

й 

nel Buffer 

Lunshezza 

del nome 

secondo (dopo?) 7ADEH 

Finito (return? 

Rddizionare 1. bste somma controllo 


Rddizionare carry al 2. byte 


Finito (return) 
Annulla il carry 


Se non stamPato CTRL 
Mette il carry 


Se - Premuto 

Annulla il carry 

Finito (return? 

Chiedere break 

se non Premuto 

Annullare indirizzo salto indietro 
Indice Pro9rammaBasic indietro 
Mettere indietro le flags 


Codice tasti Per break 
Inserire l'interruPt 
Indietro (ritorno) al Basic 


La chiamata tastiera e^ Piuttosto imPe@nativa nel Laser. Poiche” 17)- 
nica ROM routine disPonibile non contiene un “поп rimbalzo” e Produ- 
ce inoltre un auto-rePeat senza alcun ritardo. Si raccomanda quindi. 
nella chiamata di tastiera, di usare un ciclo di attesaa, 

La routine modifica solo il contenuto del Paio di redistri DE. 

Il codice ASCII del tasto Premuto sta in A, la routine attende sino a 


che viene Premuto un tasto, 


INDI- 
RIZZO 
0049 
aa4c 
aa4n 
004E 
OAZE 
002E 
0013 
0014 
Er 


LANCIO 


CONTE- 
NUTO 
Cn2Ban 
B? 

co 
18E9 
111578 
18E3 
с5 
9601 
182E 


DELLR TRSTIERR 
CDFD2E CALL 
F5 PUSH 
CDOE2F CALL 
Fi POP 
C9 RET 
2A0068 LD 
F6C0 OR 
2F CPL 
ҒЕй СР 
2807 JR 
CD282F CRLL 
B? OR 
20705 ЈР 
213878 LD 
CB56 BIT 
2808 JR 
3A3A78 LD 
B? OR 
2802 JR 
CB96 RES 
7E LD 
EG6DE AND 
323878 LD 
AF KOR 
323678 LD 
сэ RET 
21FE68 LD 
EOS Ln 
agag LD 
ТЕ LD 
F604 OR 
1F RRA 
3020 JR 
10ЕВ DINZ 
CBOS RLC 
an nEC 
20F1 JR 
0604 LD 
21DF68 LD 
ТЕ Ln 
CBS7 BIT 
2810 JR 
CEOS RLC 
7E LD 
CBS7 BIT 
2800 JR 
CROS RLC 
ТЕ LI 
CES? BIT 
280A JR 
AF XOR 
c9 RET 
BEDS LD 
1806 JR 
REA? LD 
1802 JR 
AEGI Ln 
F604 üR 
SF Ln 
ЗЕЙЄ LD 
90 SUR 
CB27 SLR 
CB27 SLA 
CB2? SLA 
cns ADD 
91 SUB 
ED434278 LD 
224478 LD 
210901 LD 
4F Ln 
asa LD 
3RFB68 LD 
CB57 BIT 
200A JR 
213878 LD 
СВСЄ SET 


SOFT 


RSSEMBLEF 
DISRSSEMBLRTO 
CALL  AAZE 
OR A 

RET NZ 

JR 90439 
LD DE,7815 
JR 0013 
PUSH BC 

LD B. DI 
JR 9046 


СЕРІ 
AF 
2F0E 
AF 


A, (6800) 
co 


na 

Z, 2F0E 
2F28 

A 

NZ, 05D7 
HL, 7838 
2, CHL? 
Z, 2F1D 
Я, стаза» 
A 

2:2F1D 
2, (HL.> 
R. CHL? 
a6 
CPBS38»,.R 


A 
(7836), R 


HL, 68FE 
Cuba 

B. 0E 

я, CHL» 
94 


NC, 2F62 
2F32 

L 

с 

NZ, 2F20 
B. 04 
HL, 68DF 
R. CHL? 
2A 

z, 2F56 
L 

R, CHL? 
2.h 

Z. 2F5A 
L 


R. CHL) 
2,R 

Z, 2F5E 
R 


C.da 
zF6ü 
с,й2 
2F6ü 
C øl 
a4 

E.R 
512 


DIDID 


A. 08 

t 
(7842), BC 
(78445, HL 
HL- 0109 
CA 

Б.ӣй 

Я, (68FB) 
2.8 

NZ, 2F8I 
HL. 7838 
A, CHL) 


PARTE SECONDA 


COMMENTO 
Interrooa la tastiera 


Se tasto Premuto => pronto 

Ancora una volta 

Blocco controllo della tastiera 
Immissione 

Salva BC 

1 = immissione 
Immissione/emissione, vedi stamPa,.. 


Interro9a la tastiera 
Porta indietro le flags 


Finito (return) 
Interroda tutti i tasti 
Mettere i bits бе? 


Se premuto nessun tasto 
Rilevare il codice tasti 


Se tasto Premuto 


Se tasto Function non premuto 
Contatore Per repeat 


Se й 
Spegnere la flao FUNCTION 


Salva i bit1e2 
Nessun tasto 


Finito (return? 
Indirizzo della 1. risa 
Contatore Per 8 ri9he 
Contatore Per 6 Bits 


Mettere bit 2 


Se tasto 
Ciclo 
Prossimo byte di tastiera 


Ciclo 
Valore contatore con bit 2 


Se - Premuto 
Se Premuto return 


Se : Premuto 
Hessun tasto 
Finito (return? 
- in riða 3 


Return in risa 2 


in risa 1 
Mettere bit 2 
Bste di tastiera doPo A 
Hr. bit del tasto... 
Premuto doPo A 
A=S#numero bit 


A=8#nr.bit+nr.ri9he 

Salvare BC e 

HL 

Indirizzo della tabella cod, tasti 
Offset... 

dopo BC 


Se SHIFT non Premuto 


Mettere la fla9 SHIFT 


Software 





DI BRUNATO POTITO 


Musica 


con il Laser 
110/200/210/310 





Molti lettori della rivista, uten- 
ti del Computer Laser 
110/200/210/310 ci hanno 
sollecitato per conoscere me- 
glio le capacità musicali dei 
loro computers. 

Per questo ci affrettiamo a 
soddisfare le loro esigenze. 
Oltre alla istruzione Basic 
SOUND che é correttamente 
spiegata nel manuale, é pos- 
sibile intervenire anche con il 
linguaggio macchina. Natu- 
ralmente i meno esperti po- 
trebbero incontrare delle dif- 
ficoltà nel seguirci in tal sen- 
so, per cui spiegheremo tut- 
to riferendoci al BASIC, usan- 
do le funzioni PEEK e POKE. 
Per prima cosa occorre sta- 
bilire una zona di memoria in 
cui allocare il programma in 
linguaggio macchina (L.M.). 
Noi abbiamo scelto le loca- 
zioni che vanno da —18680 
a —18689 (attenzione che tali 
locazioni devono essere indi- 
cate con il segno meno). 
Queste locazioni si trovano al- 
la fine della R.A.M. e lascia- 
no spazio per il Basic. ІІ pro- 
gramma di Assembly è stato 
decodificato negli equivalen- 
ti valori numerici decimali, per 
cui sarà sufficiente inserire tali 
valori nelle locazioni di cui so- 
pra usando la funzione Basic 
POKE. 

Ogni locazione ha un preci- 
so significato che riportiamo 
nello schema (vedi riquadro 
hir. 7). 
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Nella locazione — 18689 ver- 
rà inserito il valore 20 che de- 
termina la frequenza del suo- 
no (byte basso) mentre nella 
locazione —18687 dovrà es- 
sere inserito il valore della fre- 
quenza (byte alto). 

In particolare, i valori scelti 
(20 e 0) sono arbitrari in 
quanto é possibile variarli a 
piacere tra i valori O e 255, 
come precisato nello schema 
del riquadro nr. 2. 

Lo stesso vale per la durata, 
inserita come byte basso nel- 
la locazione —18686 e byte 
alto nella —18684 [(C) e (B) 
riquadro nr. 2]. 

Per eseguire il programma in 
L.M. viene richiamata una 
routine di sistema della ROM 
con l'istruzione Assembly 
CALL come indicato nella lo- 
cazione — 18683 che in que- 
sto caso contiene 205. 
L'indirizzo della routine ë 
precisato nelle locazioni 
—18682/—18681. 

| valori che devono essere in- 
seriti sono 92 e 52 decimale 
e NON DEVONO ASSOLU- 
TAMENTE ESSERE CAM- 
BIATI. 

L'ultima locazione —18680 
deve contenere l'istruzione di 
ritorno al BASIC (RET). 

A questo punto abbiamo 2 
possibilità per richiamare le 
routine in L.M.: 


1° metodo: con l’istruzio- 
ne USR(I) 


Digitare, o inserire in un pro- 
gramma Basic le seguenti 
istruzioni: POKE 30862,255: 
POKE 30863,182 che segna- 
la il punto di partenza per l'i- 
struzione basic USR(I). Per 
sentire il suono invece è suf- 
ficiente richiamare da Basic 
X=USR(I) ogni volta che si 
vuole sentire il suono. Se lo si 
vuole variare è necessario 
cambiare il contenuto delle 
locazioni —18688 e —18687 
per la frequenza e —18685 e 
—18684 per la durata, come 
già detto. Il suono ottenuto 
con tale sistema è un po' 
‘‘gracchiante’’, ed è adatto 
per riprodurre suoni di moto- 
ri, elicotteri, motoscafi etc. 


Programma in L.M. e com- 
menti 


2? metodo: attraverso IIN- 
TERRUPT 


Dopo aver digitato il pro- 
gramma in L.M. è necessario 
dare le seguenti istruzioni: 
POKE 30846,255: POKE 
30847,182 che segnalano l'i- 
nizio dell INTERRUPT. L 'atti- 
vazione avviene in modo 
molto semplice con POKE 
30846,195 che produce un 
suono limpido e continuo. 
Per interrompere: POKE 
30846,201. 

Naturalmente il suono attiva- 
to in questo modo non influi- 
sce assolutamente sull'ese- 
cuzione di un programma 
Basic, per cui è possibile ese- 
guire qualsiasi operazione 
mentre suona. Questo per- 
ché ogni sessantesimo di se- 
condo questa routine viene 
eseguita. 


Speriamo sia tutto chiaro. 


POKE-18689,33 : REM LD 
POKE-18688,20 : REM FREQ 
POKE-18687,0 : REM FREQ 
POKE-18686,1  : REM LD 
POKE-18685,40 : REM DURATA 
POKE-18684,0 : REM DURATA 
POKE-18683,205 : REM CALL 


РОКЕ-18682,92 : REM INDIR. (H) 
POKE-18681,52 : REM INDIR. (L) 
POKE-18680,201 : REM RETURN AL BASIC 
POKE-30862,255 : POKE 30863,182 : START (USR) 
X-USR (J) : REM ESEGUE 


Valori 


| valori per frequ. 
| valori per frequ. 
| valori per durata 
| valori per durata 


riquadro nr. 1 





(L) da 1 a 255 
(H) da 1 a 255 
(C) da 1 a 255 
(B) da 1 a 255 


riquadro nr. 2 








Software 





DI P. BRUNATO 


Formula 1 





1044 
1048 
1049 


POKE30845,195 
IFPEEK(26875)=251THENSOUND31,1 
POKE30845, 201 


1050 IFFEEK(-19696)% 117THENFOKE-19697,RND(2):FOKE-19696,112 
IFPEEK(-19632)»117THENFOKE-19533,RND(3) -3: POKE-19632,112 
ІРРЕЕК (-19568) > 117ТНЕМРОКЕ- 19569 , RNDCA) +0; POKE-19558, 112 


1055 
1060 
1065 
1070 
1080 
1100 
1110 
1120 
1130 
1140 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2572 
2574 
2576 
2578 
2580 
2600 
2610 
2620 
3000 
3100 
3110 
3111 
3113 
3114 
3115 
3118 
3150 
3160 
3170 
3190 
3195 


` 3400 
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3410 
3420 
3425 
3428 
3429 
3430 
3450 
3460 
3500 
4000 
4020 
5000 
5010 
5015 
5020 
5030 
5040 
5050 
5060 
2070 
5080 
3090 
5100 
5110 
5115 


РОКЕЗ0845,195!МЕХТ 
РОКЕ29368,К%(1,6%):РОКЕ29400,К%(2,6%) 


РОКЕ29432,К%(3,6%) :РОКЕ29404,К%(4,6%) :РОКЕ29496,К%(5,6%) 


МЕХТ:РОКЕ29306,К%(1,У%)!РОКЕ293298,К%(2,У%) 


РОКЕ29430,К%(3,У%) (РОКЕ29462,К%(4,У%) (РОКЕР9494,К%(5,У% 


МЕХТ:РОКЕ29304,К%(1,В%)!РОКЕ293290,К%(2,Б% 


РОКЕ29428,К%(3,В%) : POKE29460, KX (4, BX) (РОКЕО9492,Қ%(5,В%) 


NEXT:GOTO3100 
POKE30862,.24:POKE30863,.182 
X=USR(I) 
FORA=OTOS;SOUNDRND(31),1:NEXT 
PORE30852,38:POKE30863,175 
AXSUSR(CI):FORTzZOTOS00 
Z%=166!T5%=26869:;POKE-19450,5% 
POKE30862,14:FOKE30863,179 
BORE-Z19697 3 PONE»195965 112 
FOKE-19633,9:POKE-19632,114 
РОКЕ»19569, Т//РОКЕ-19568,116 
IFDM%=10THEN3100 
DM#=DM%-- 1: IFDM%=0THENDM%= 10 
FOKE30128,K*(1,DMX) : POKE30160,K9X (2, DM) 


РОКЕЗ0192,К%(3,ПМ%) : PORE30224,KX (4, DMX) : PORE30256 , KX(5 ,DMX 


FORT-0TOS00:NEXT:SOUND31,2 
RETURN 
FORT=1T031STEP4:SOUNDT,1 :NEXT 
FORT-31TO1STEP-4:SOUNDT,1:NEXT 


CLS :PRINT" ig (0 d М И а еу CM WC 
PRINT:PRINT" KILOMETERS "В%-1:У%-1:6%-1:" 
Рв T NT З= ЕГЕТЕ ЗЕТОТ арб А " 
PRINT:PRINT" HIGH SCORE" 

PRINT! Ian " 


SH$=STR$(B%-1)+STR$(V%-1)+STR$(G%- 1) 
SCH=VAL(SH$) 


IFSCH? ONXTHEN3400 
FORQ-0TOS;:PFRINTG181," "SSQUNDO, 1 
PRINT@180,GN%:" ":SOUND25,2:NEXT:GOTO4000 


TTX*INT(SCH/5) : CNX-SCH 
PRINT@180,CN%:" " 

PRINT@231, "BONUS ":FRINT@244,TT% 
РВІМТӨ263,"-------------...-. 
SOUNDO, 3 

IFTT%=0THEN4000 
FORGX-TT*-1TOOSTEP-1:CTX-CTX1 
PRINT6180,CNX*OTX 
PRINT@244 , Q% : SOUND1 , 1 : SOUNDO , 2 

NEXT: CN%=CN%+CT% 

PRINT®457, "PRESS SPACE" 
IFPEEK(26863)=239THEN600ELSEGOT04020 
REM--FILE DATI-- 
DATA33,0,112,17,32,0 
DATA25,34,15,179 

DATA54,0,35,54,0,25 
DATA54,204,43,54,51,25 
DATA54,59,35,54,252,25 
ПАТА54,204,43,54,51,25 
ПАТА54,3,35,54,192,25 
рАТА54,243,43,54,207,25 
DATA54,255,35,54,255,25 
DATAS4,249,43,54,207,25 
DATA54,3,35,54,192,0 
DATA33,0,112, 17, 32,0 
DATA25,34,79,179 


"ІСНЕ$ (99) 
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DI EMANUELE BERTONI 


Grafica libera per Laser 310 


Abbiamo scelto di pubblica- 
re questo programma tra 
quelli inviateci in redazione 
principalmente per tre motivi: 


1° motivo: 

l'estrema semplicità e pulizia 
del programma. Poche righe 
ben commentate che riesco- 
no a rendere il Laser 310 un 
foglio da disegno incredibile. 
2? motivo: 

l'ottimo commento allegato al 
listato, che qui sotto pubbli- 
chiamo. 

3° motivo: 

l'età relativamente giovane 
dell'autore (14) rapportata al- 
la completezza del program- 
ma. 


Unico appunto che si può 
muovere al riguardo è che, 
spegnendo, si perde tutto. 
Tuttavia noi abbiamo già 
pubblicato la routine di Hard 
Copy su nr. 1 della rivista: ba- 
sta inserirla con le opportune 
modifiche e, per i possessori 
del Printer Plotter, sarà uno 
scherzo vedere stampato il 
disegno. 

Ecco il commento di Bertoni 
Emanuele di Milzano (BS) al 
suo programma: 

"Questo programma é stato 
realizzato su un Laser 310 
senza espansioni. E un pro- 
gramma molto semplice, ba- 
sato sull'istruzione INKEYS e 
sui cicli FOR...NEXT. 

E un programma di grafica 
(MODE (1)), molto divertente, 
con cui si puó disegnare libe- 
ramente, quindi dando piü 


sfogo alla fantasia. *** D=a sinistra *** F=a 
- Per disegnare, premere: destra 

W=in alto *** Z=in basso che spostano con il punto di 
*** A=a sinistra *** S-a scrittura senza scrivere. 


destra - Con i tasti: 
- Per non confondere il dise- О sposta il punto di scrittura 
gno, sono previsti i tasti: al centro. 


R=in alto *** C=in basso Xil video si cancella rimanen- 

















10 MODE(1) 

20 PORT=1T04 

30 ASSINKEYS$:IFA$z""THEN3O 
10 NEXT 

42 REM ЖЖ MOVIN TI %% 

45 IPA$z"Qg' THENGAZzGA-1 

17 IPFA$"Z'THENGAZGACrl 

47 IPA$-"A'T ЕЕ 1 

ай IPAS-"G'THE dep 1 

91 IFAS$-"R'"THENCA-CA-1:GOTOZO 
ue IPATS"UP'UCUDHI 

S3 IPAS$2"D''THI 

uad ТРАЕ ОТН 


im НЕМ ЖЖСОМТЕ 
67 ЕСРИ 
ІЕСАХ é 


ао REM ЖЗ 
еш FATE MUTE 
ПОЕТ 
А0) PI 
To IFAS= 

Bo pendet EM 
5 ТЕА" "THE 
LFA =" 7 
IF'A$=" R" THEN 














DE 
LOD 


110 ІҒА%- 


[FA$-"X"T 


RIOLO, 





do in MODE (1). 

V dà un segnale acustico e la 
posizione del cursore. 

E Fine del programma. 

- E per finire, con i tasti da 1 
a 8 si hanno a disposizione gli 
8 colori". 
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DI LUCIANO SPERANDIO 


Bomber 





Il gioco che vi presentiamo, 
realizzato dall'amico Speran- 
dio per il Laser 310, é molto 
conosciuto e, se non andia- 
mo errati, adattato a quasi tut- 


ti i computer di nostra cono- 
scenza. 

Un aereo, a corto di carbu- 
rante, per poter atterrare de- 
ve distruggere i palazzi della 


città scaricando le tonnellate na digitata e buon diverti- 
di bombe che il suo ventre mento. 

capace contiene. 

Non c'é molto altro da ag- 

giungere: a tutti, quindi, buo- 








1 GLS 890 GOTO60 

4 COLOR6;1 1000 IF A=10=28864 

6 PRINT@13, "BOMBER" 1002 IF P 

7 PRINTe32,"BY SPERANDIO LUCIANO ## 1986 44" 1004 IF 

8 PRINT"SEI SU UN PICCOLO DISCO VOLANTE E PURTROPPO SEI": 1006 IF 

9 PRINT" A CORTO DI":PRINT"GARBURANTE. " 1008 IF 

12 PRINT"PER POTER ATTERRARE DEVI DISTRUGGERE LA GITTA." 1010 IF 

14 PRINT"PREMENDO IL TASTO “B> POTRAI SGANCIARE LA BOMBA CHE " 1012 IF = 

16 PRINT"ABBATTERA'/ QUASI COMPLETAMENTE IGRATTACIELI." 1014 IF B=26=179 

18 PRINT"OOGORRONO GOSI' PASSAGGI А BASSAQUOTA PER DISTRUGGERE" 1016 IFB=3G=182 

20 PRINT"GOMPLETAMENTE LA CITTA?" 1018 IFB-4G-188 

22 БЕЛІП Фан "PREMI <G> PER COMINCIARE." 1020 RETURN 

24 A$=INKEY$ А 2000 FORZZ=1TO4 

2 IFINKEY$="C"THENCI.S:GOT040 2010 POKEAA+S, 249: РОКЕСО +5, 290; РОКЕ)О 5, 251 
28 Рода 2011 SOUNDIO,1 

40 CLS:GOLOR4, 0 2012 РОКЕАА%5,96!РОКЕСС%5,96:РОКЕПІ)-5,96 
50 GSO n 5 e. 2014 SOUNDS,1 

ce e LIE 2050 NEXTZZ 

Sce 9 2060 FORSS-STOA79STEPF32 

90 CLS 2062 POKEAA+SS,249!POKECC+5S,246!POKEDD+SS, 249 
100 FORN-2TO29 2064 SOUNDIO,1:SOUNDIS,1 

104 A=RND(6) (066 PRINTGSS," У 

106 B=RNI)(4) 2068 NEXTSS 

108 GOSUB1000 2070 FORM-1TO100:NEXTM 


110 FPORH-29152*NTOOSTEP- 32 2072 CLS;PRINTG32, "PUNTI: "PU 

112 POKEH,G 2073 IFMP«PUTHENMP-PU 

114 NEXTH 2074 PRINT@96, "МАХ PUNTEGGIO: "МР 

116 NEXTN 2076 FORN=0T029 

118 FORN=0TO31 2078 POKE28992+N,198:POKE289934N,192:FOKE289944N, 201 
120 POKE291524N, 252 2080 РОКЕ289924М-1,96 

122 МЕХТМ 2081 РОКЕ29021,96!РОКЕ29022,96:РОКЕ29023,96 
124 РОКЕ29150: 255 2082 А%-ІМКЕҮ% 

200 FORS-1TOA"73 2084 PRINT@448, "ALTRA PARTITA? SeN" 
210 POKEAA+S,198/POKECC+S,192:POKEDD+S, 201 2086 IFA$="S"THENGOTOSO 

212 POKREAAt*S-1,96 2088 IFA$-"N"THENEND 

214 А%-ІМКЕҮ% 2090 NEXTN 

215 IF INKEY$-"B"THENGOTO2900 2100 GOTO20'76 

224 UU-DDt'S-*1 2881 PRINTGN," " 

230 IFPEEK(UU) <> 96 THENGOTO2000 2900 А$= "А": ІЕ5<255ТНЕМХХ=383 

240 IFFEEK(UU)-255THEN800 2908 IFS-287THENXX-478 

790 NEXTS 3000 FORFF-St*32TOXXSTEP32 

800 FORN=1T04 3002 POREAA*FF,99 

802 COLORS3,1 3004 POKEAA+FF,96 

820 SOUND10,.1:SQ0UND14,1:SOUND165,1 3008 IFPEEK(AA+FF+32) 4296 THENPU-FU- 1 
824 COLORS,0 3014 NEXTFF 

840 NEXTN 3016 SOUNDI,1 

844 CLS 3050 GOTOZIO 

860 COLOR3,1:PRINTG233,"BONUS PARTITA" 8002 SOUNDS3,1 


88 


0 FORN-1TO400:NEXTN 


5120 
ЕЛ 30) 
5140 
S50 
5160 
5170 
5180 
5190 
5200 
5210 
5215 
5220 
5230 
5240 
5250 
5260 
5270 
S280 
EUR 
5300 
5310 
9330) 
5340 
5350 
5360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5495 
5500 
5501 
5502 
5503 
5504 
$505 
5506 
5507 
5508 
5509 
5510 
5511 
4512 
5518 
5520 
5530 
5540 
5550 
5560 
9570 
5580 
5590 
5600 
5610 
5620 
5630 
5635 
5640 
5650 


ПАТА84,0,35,54,0,25 
ПАТА54,136,43,54,34,25 
DATAS54,42,35,54,168,25 
ПАТА54,136,43,54,34,25 
DATA54,2,35,54,128,25 
DATA54,162,43,54,138,25 
DATA54,170,25,54,170,25 
ПАТА54,162,43,54,138,25 
DAT2054.:2;45254:129870 
DATA33,0,112,17,32,0 
DATA25,34,143,179 
DATA54,0,35,54,0,22 
DATA54,140,43,54,35,25 
DATAS54,63,35,54,184,25 
DATAS4,140,43,54,35,25 
DATAS4,2,35,54,192,25 
ПАТА54,227,43,54,142,25 
DATA54,238,35,54,238,25 
DATAS4,227,43,54,142,2 
DATAS54,3,35,54,128,0 
DaATA33.166.;116,17,32,0,295 
DAÀTAS4,0,43,24,0,29 


DATAS4,0 
DATA54, 
DATA54.0 


DATA54,0, 
DATA54,0, 
DATAS4,0, 





299.94, 
43,54, 
ada 
43,54, 
Sud 


43,54, 


0,29 


0,25 


DATAS4.0,35,54.0,0 
DATA33,166,116,17,32,0 
DATA34,207,179,25 
ПАТА54,68,43,54,17,25 
DATAS4,21,95,54,84,25 
ПАТА54,68,43,54,17,25 
DATAS4,1,35,54,64,25 
DATAS54,81,43,54,69,25 
DATA54,85,35,54,85,25 
DATAS4,81,43,54,69,25 
DATA54,1,35,54,64,0 
DATA33,33,118,17,32,0 
DATA54,0,35,54,0,35,54,0,35, 54,0, 35 
рАТАЗ5,54,0,35,54,0,35,54,0,35,54,0 
ПАТА54,0,43,54,0,43,54,0,43,54,0,43 
ПАТА54,0,43,54,0,43,54,0,43,54,0,25 
рАТА54,0,35,54,0,35,54,0,35,54,0,35 
рПАТА54,0,35,54,0,35,54,0,35,54,0,29 
DATA54,0,43,54,0,43,54,0,43,54,0,43 
DATAS4,0,43,54,0,43,54,0,43,54,0,25 
ПАТА54,0,35,54,0,35,54,0,35,54,0,35 
ПАТА54,0,35,54,0,35,54,0,35,54,0,25 
DATA54,0,43,54,0,43,54,0,43,54,0,43 
DATAS4,0.43,54,0,43,54,0,43,54,0,25 
DATAS4,0,35,54,0,35,54,0,35,54,0,35 
DATA35,54,0,35,54,0,35,54,0,35,54,0 
DATAS4,0,43,54,0,43,54,0,49,54,0,43 
рАТА54,0,43,54,0,43,54,0,43,54,0,25 
DATA54,0,35,54,0,35,54,0,35,54,0,35 
DATA254,0,35,54,0,35,54,0,35,54,0,25 
DATAS4,0,43,54,0,43,54,0,43,54,0,43 
DATAS4,0,43,54,0,439,54,0,43,54,0,25 
DATAS4,0,35,54,0,35,54,0,35,54,0,95 
DATAS4,0,35,54,0,35,54,0,35,54,0,25 
рБАТА54,0,43,54,0,43,54,0,43,54,0,43 
DATAS4,0,43,54,0,43,54,0,43,54,0,25 
DATA54.0,35,54,0,35,54,0,35,54,0,35 
ПАТА54,0,35,54,0,35,54,0,35,54,0,28 
БАТА54,0,43,54,0,43,54,0,43,54,0,43 
DATA54,0,43,54,0,43,54,0,43,54,0, 33 


1954,0,35,54,0 
:99,94,0,25 
,024,0,43,54,0,43,54,0,43 
24,0,353,54,0,35,54,0,385 
,94,0,43,54,0,43,54,0,43 
204,0, 595 54.05 35.52, 0.35 
:94,0,43,54,0,43,54,0,43 
,94,0,35,54,0 
,35,594,0,25 
,24,0,43,54,0,43,54,0,43 
:94,0,35,54,0,35,54.0,395 
;24,0,43,54,0,43,54,0,43 
;904,0,95,54.0,35,54.,0,.35 
,24,0,43,54,0,43,54,0,43 
724,0, 39,24,0,308,94,0,35 


,24,0,43,524,0,43,54,0,43 
1120. 20), 24,201, 200 
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5660 DATA42,207,179,17,32,0,25 6210 рАТА42,143,179,17,32,0 
5670 DATAS4,128,43,54,92,25 6215 ПАТА25 

5680 ГАТА54,12,35,54,176,25 6220 DATA54,0,35,54,0,25 
5690 ПАТА54,174,43,54,82,25 6230 DATA54,0,43,54,0,25 
5700 DATAS54,184,35,54.142,25 6240 DATA54,0,35,54,0,25 
5710 DATA54,128,.43,54,3,25 6250 DATA54,0,43,54,0,25 
5720 DATA54,55,35,54,184,75 6260 DATAS4,0,35,54,0,25 
5730 DATAS4,12,43,54,11,25 6270 DATAS4,0,43,54,0,25 
5740 БАТА54,11,35,54,12,201,0,0,0,0,0 6280 DATAS4,0,235,54,0,25 
6000 REM--FILE DATI-- 6290 DATAS4,0,43,54,0,25 
6010 DATA42,15,179,17,32,0 6300 ПАТАЗ4,0,35,54,0,0 
6015 DATA25 ES ПОР DOT Тао MIAO ZA 
6020 DATA54,0,35,54,0,25 6330 DATAS4,0,43,54,0,25 
6030 ПАТА54,0,43,54,0,95 6340 DATAS4,0,35,54,0,25 
6040 DATA54,0,35,54,0,25 6350 DATAS4,0,43,54,0,25 
6050 DATA54,0,43,54,0,25 6360 DATA54,0.35,54,0,25 
6060 DATAS4,0,35,54,.0,25 6370 DATAS4,0,49,54,0,25 
6070 DATAS4,0,43,54,0,25 6380 DATAS4,0,35,54,0,25 
6080 DATA54,0,35,54,0,25 6390 DATAS4,0,43,54,0,25 
6090 DATAS4,0,43,54,0,25 6400 DATA54,0,35,54,0,201,0.,0,0,0,0 
6100 DATAS4,0,35,54,0,0 6410 'KILOMETRI 

6110 БАТА42,79,179,17,32,0 64380 DATA4,20,4,4,4 

6115 БАТА25 6440 DATA85,65,4,16,85 
6120 DATAS54,0,35,54,0,25 САЗО Тава ИКЯЕ 
6130 DATA54,0,43,54,0,25 6460 DATA64,64,68,85,4 
6140 DATAS4,0,35,54,0,25 6470 DATA85,64,85,1,85 
6150 DATAS4,0,43,54,0,25 6480 DATABO,64,85,65,85 
6160 ПАТА54,0,35,54,0,25 6490 DATA85,1,4,16,64 
6170 DATA54,0,43,54,0,25 6500 DATA8S,65,85,65,85 
6180 DATAS4,0,35,54,0,25 6510 DATA85,65,85,1,5 
6190 DATA54.0,43,54,0,25 (6520 DATABS,65,65,65,85 


6200 DATAS4,0,35,54,0,0 





PER LA TUA ESTATE 





FOSFORESCENTE. 


LA NOVITÀ ESTATE ‘86 IN DUE COLORI 
FOSFORESCENTI GIALLO E VERDE, 


IMPERMEABILI, 
RESISTENTI AGLI URTI E 
CON LA PRECISIONE 
AL QUARZO. 


DESIDERO RICEVERE | SEGUENTI OROLOGI A 
j L. 105.000 CAD. IVA COMPRESA 
7 (CONTRASSEGNARE IL CODICE E INDICARE LA QUANTITÀ) 



































СА Ф QUANTITÀ Ne... MOD. A VERDE 
4.8 QUANTITÀ Ne... MOD. В GIALLO — TOT. NS... 
/ COGNOME NOME 
/ VIA N° 
C.A.P. CITTÀ TEL. 
DATA FIRMA 





4 PAGHERÒ IN CONTRASSEGNO L'AMMONTARE DOVUTO, PIÙ SPESE POSTALI 
L. 7.000, AL RICEVIMENTO Di QUANTO ORDINATO 





SPEDIRE IL TAGLIANDO IN BUSTA CHIUSA A: RP 2000 - VIALE VARESE 83 - 22100 COMO 





MOD. A 
VERDE UNISEX 





MOD. B 
GIALLO UNISEX 










nuovo dischetto, e può esse- 
re facilmente eseguita con il 
comando di sistema INIT (più 
tasto RETURN. 

Dopo questo comando la lu- 
ce rossa del DRIVE si accen- 
de, e si sente un rumore che 
sta ad indicare la messa in 
funzione del DRIVE. Dopo 
due o tre minuti la formatta- 
zione ha termine ed il dischet- 
to é pronto per essere usato. 
Con il comando SAVE é pos- 
sibile memorizzare sul disco 
un programma BASIC che si 
trovi nella memoria del com- 
puter, e dopo pochi secondi 
il programma è registrato sul 
disco. 

Non è necessario eseguire al- 
tre operazioni, come avveni- 
va con il registratore, e non è 
più necessario attendere lun- 
ghi minuti per salvare un pro- 
gramma. 

Con il comando LOAD è pos- 
sibile richiamare il program- 
ma, ed anche questa opera- 
zione avviene con una velo- 
cità ed una semplicità ecce- 


DI BO 24 Ф 
LOPPY Dig 
CONTROL pe 


zionali. 

Unica avvertenza da seguire 
ë che i comandi LOAD e SA- 
VE devono sempre essere 
seguiti dal nome del pro- 
gramma scritto tra virgolette. 
Inoltre ë possibile anche sal- 
vare FILES di dati, come op- 
portunamente spiegato nel 
manuale del DRIVE. 
Quando si desidera avere un 
elenco del contenuto del di- 
schetto, é sufficiente il co- 
mando DIR che legge la DI- 
RECTORY del disco, scriven- 
do sul video il nome ed il tipo 
dei FILES archiviati. In parti- 
colare la lettera T indica i pro- 
grammi, mentre la lettera D 
indica i dati. 

La velocità delle operazioni ë 
molto elevata, ed il dischetto 
é un supporto magnetico 
molto più affidabile del na- 
Stro, per cui ë opportuno 
prendere in seria considera- 
zione la possibilità di dotare 
il proprio computer di un DRI- 
VE con il relativo controller. 


FLOPPY DISK DRIVE FD 100 A 


Questo modello é stato rea- 
lizzato per il computer LASER 
500, ed offre prestazioni ec- 
cezionali, come il computer a 
cui é dedicato. 

In particolare ricordiamo agli 
utenti più esperti che con 
questo DISK DRIVE collega- 
to al LASER 500 è possibile 
usare oltre al DOS della Vi- 
deo Tecnology, anche il siste- 
ma operativo CP/M, per il 
quale ci riserviamo in un 
prossimo servizio di fornire 
spiegazioni anche agli utenti 
che hanno da poco famiglia- 
rizzato con i FLOPPY DISK e 
con il DOS. 

E possibile collegare al com- 
puter anche 2 DRIVE, con la 
possibilità di scambiare le in- 
formazioni da uno all'altro, 
leggendo o copiando pro- 
grammi, senza alcun proble- 
ma. 

Abbiamo fatto una semplice 
prova, per controllare le ca- 


pacità del dischetto, ed ab- 
biamo constatato che nella 
DIRECTORY ë possibile far 
stare ben 129 titoli di pro- 
grammi, mentre sul disco si 
possono salvare programmi 
o FILES fino ad una capacità 
complessiva di 138 KBytes. 








o Informazioni 
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FLOPPY DISK DRIVE LASER DD20 
e LASER FD 100 A 


VELOCITÀ ED EFFICENZA NELLE OPERAZIONI CON I FILES 





...Qualche chiarimento ai me- 
no esperti... 


Prima di analizzare le possi- 
bilità offerte dai due DRIVE 
per i computers LASER 310 
e LASER 500 vediamo insie- 
me cosa é un FLOPPY DISK 
DRIVE per consentire a tutti 
di comprendere il resto del- 
l'articolo. 

II DRIVE é una periferica che 
puo ricevere o trasmettere in- 
formazioni, dialogando con la 
CPU attraverso una PORTA 
di comunicazione. 

La maggior parte dei compu- 
ters consente il collegamen- 
to di tale periferica all'Unità 
Centrale (CPU). 

Le informazioni sono ricevu- 
te dal DRIVE, che provvede 
a memorizzarle, attraverso te- 
stine magnetiche su un op- 
portuno supporto, che con- 
serverà queste informazioni 
in modo stabile. 

Il supporto magnetico usato 
ë di solito un disco di mate- 
riale plastico, flessibile, che é 
ricoperto di materiale magne- 
tico. 

Questo disco, può avere di- 
mensioni diverse, anche se le 
misure sono già da tempo 
standardizzate, ed é possibi- 
le trovare dischetti da 3 Polli- 
ci (Inches), 5 Pollici ed 1/4, 
oppure 8 Pollici. Un pollice 
(Inch) corrisponde a 2.54 mm 
circa. 

| dischetti di questo tipo sono 
chiamati FLOPPY DISK, e la 
periferica che permette l'uso 
dei FLOPPY DISK é chiama- 
ta appunto DRIVE per FLOP- 


PY DISK. 

II DRIVE puó anche leggere 
le informazioni dal disco, e 
trasmetterle alla Memoria 
Centrale del computer, dove 
è possibile elaborarle. 

La maggior parte degli uten- 
ti di HOME-COMPUTERS co- 
nosce il registratore di dati, 
che consente di memorizza- 
re in modo permanente, su 
nastro magnetico (cassette), 
i programmi, o i FILES di da- 
ti,e di richiamare dal nastro 
questi programmi, o dati per 
rielaborarli nella memoria 
centrale del computer. 

II DRIVE per FLOPPY DISK 
opera in modo simile al regi- 
stratore, anche se presenta 
indiscutibili vantaggi poiché 
le operazioni con il DRIVE av- 
vengono in modo più veloce 
(20-50 volte), oltre al fatto che 
un disco permette di control- 
lare facilmente, le informazio- 
ni che contiene. 

Per concludere questa pre- 
messa ricordiamo agli utenti 
meno esperti che il DRIVE 
per FLOPPY DISK richiede 
l'uso del DOS (Disk Operati- 
ve Sistem), vale a dire che é 
necessario famigliarizzare 
con un certo numero di CO- 
MANDI che permettono di 
eseguire le operazioni. Il DOS 
può essere memorizzato su 
disco, o realizzato ed installa- 
to in apparecchiature di inter- 
faccia, (DISK CONTROL- 
LER). Per l'uso dei comandi 
occorre fare riferimento al 
manuale del DRIVE, che for- 
nisce tutte le informazioni ne- 
cessarie. 


LASER DD 20 DISK DRIVE 


Il DRIVE DD 20 può essere 
collegato ai computers LA- 
SER 110/210/310 con un 
DISK CONTROLLER che im- 
plementa in modo automati- 
co il DOS. 

Il DRIVE è fornito con appo- 
sito alimentatore di corrente, 
da collegare alla rete elettri- 
ca 220 V. 

Il manuale in dotazione, tra- 
dotto in italiano, fornisce tutti 
i chiarimenti necessari ad un 
corretto uso delle apparec- 
chiature. 

Per chi possiede i computers 
LASER 110 o 210 è necessa- 
rio anche l’uso di una espan- 
sione di memoria da 16K o 
da 64K (meglio 64K). 

Il DRIVE è adatto all'uso di 
FLOPPY DISK da 5 Pollici e 
1/4, per cui è necessario pos- 
sedere anche qualche di- 


schetto a singola faccia dop- 
pia densità, per poter usare 
il DRIVE. 

Dopo aver effettuato | colle- 
gamenti è necessario inseri- 
re un dischetto nell'apposita 
fessura, ruotare la leva di 
chiusura, ed accendere il 
computer. In questo modo il 
CONTROLLER attiva il DOS, 
e sul video compare una 
scritta che segnala che il 
computer è pronto (READY) 
a ricevere i comandi. 

Con un dischetto nuovo la 
PRIMA OPERAZIONE da 
eseguire è la FORMATTA- 
ZIONE (o INIZIALIZZAZIO- 
NE). 

Non ci addentriamo in com- 
plicate spiegazioni tecniche, 
ma spieghiamo semplice- 
mente che questa operazio- 
ne è indispensabile per ogni 









IMPERMEABILE | 
20 METRI DI PROFONDITÀ. [ЗАТМЈ 


NUOVI E COLORATISSIMI OROLOGI 
PER UOMO E DONNA PER LA TUA ESTATE GIOVANE. 
MODELLI IN PLASTICA COLORATA E 

CON QUADRANTE TRASPARENTE PER 

VEDERE LA PRECISIONE DEL 

MOVIMENTO AL QUARZO 













































































SPEDIRE IL TAGLIANDO IN BUSTA CHIUSA A: | 
RP 2000 - VIALE VARESE 83 - 22100 COMO | 
DESIDERO RICEVERE | SEGUENTI OROLOGI А L. 55.000 CADAUNO IVA COMPRESA: Í 
MODELLO UOMO BIANCO QUANTITÀ N° ...... I 
1 ARANCIO QUANTITÀ N° ...................... | 
GIALLO QUANTITÀ N° ....... 
X VERDE QUANTITÀ N° ...................... 1 
DA | ГІ AZZURRO QUANTITÀ N° ..................... lI 
с № moneo DONNA BIANCO QUANTITÀ N° i... l 
ГІ ARANCIO QUANTITA NE... ccce I 
GIALLO QUANTITÀ N° i... 
VERDE QUANTITÀ N° .......... I 
AZZURRO QUANTITÀ № ...................... l 
COGNOME ` l NOME E 
VIA 0 i EE I N° 
CAP ` CITTÀ I I 
DATA I TEL. 
FIRMA 





I 
| 
I 
І 
1 
AL RICEVIMENTO DI QUANTO ORDINATO I 


PAGHERÒ IN CONTRASSEGNO L'AMMONTARE DOVUTO PIÙ SPESE POSTALI L. 7.000 І 4 


Software 


DI P. BRUNATO 


MUSICA CON 
IL LASER 500 


10 ‘MUSICA CON IL COMPUTER 
е) ЕАС же сы сө 

14 'TASTI DA USARE SONO 

16 '1-2-8-4-5-6-1-8-9 

18 “PER LA DURATA DELLE 

20 'NOTE. 

22 ‘I TASTI CURSORE PER 

24 ‘PER SCIEGLIERE LE 

26 ‘NOTE E CANCELLARLE 

28 ‘ALTRI TASTI DA USARE 

30 ‘SONO D-B-E 

32 '-D- DIESIS 

34 '-B-  BEMOLLE 

36 '-E- ESECUZIONE 

ad LTD CLITA RC s DANNO DEC E 

40 GR S:CLEAR 1000:COLOR 15,0 

42 POR LN=61 TO 93 STEP 8:MOVE(O,LN) 
44 DRAW (159,LN) :NEXT 

46 Х=-9:0=Х:Ү=58:01М N(255),P(255) 
48 DAT=PEEK(&H85F0) 

50 IF DAT=46 AND Y>26 THEN Y=Y-4 

52 IF DAT=10 AND Ү<94 THEN Y=Y+4 

54 IF DAT-34 AND X»-8 THEN GOSUB 78 
86 COLOR 15,0 

58 SET(X*H10,Y414) :GET (X412, Y*14) 

60 SET(X+10,Y+16):SET(K+12,Y+16) 

62 УМ%-(ІМКЕУ%) 

64 IF VN$="D" OR VN$="B" THEN GOSUB 190 
66 IF VN$="E" THEN GOSUB 92 

68 VN=VAL(VN$) : COLOR. 0,15 

70 BET(X*10, Y 14) :GET(X*12, Y*14) 

72 SET(K+10,Y+16):SET(X+12,Y+16) 

74 IF VN=0 THEN СОТО 48 ELSE GOSUB 100 
75 GOTO 48 

78 Z«Z-1: REM CANCELLA 

80 FOR C=X TO X-B STEP -1:COLOR 0,0 
82 MOVE(C+8,26):DRAW(C+8,124) 

84 COLOR 15,0:SET(C+8,61) 

86 BET(O*8.69) :SET(OHB , 77) 

88 SET(O*B8,B85) : SET(O*8,93) 

90 NEXT :X-C:COLOR 15,0:RETURN 

92 REM ESECUZIONE DEL BRANO 

94 FOR Asi TO Z 

уь SOUND N(A),F(A) 

98 NEXT :RETURN 

100 Z-Z41:REM ASSEGNAZIONE DELLA NOTA 
102 IF Y=94 THEN N(£)=1:P(Z)=VN 

104 IF Y=90 THEN N(Z)S3:P(Z)-VN 

106 IF Y=86 THEN N(Z)54:P(Z)sVN 

108 IF Y=82 THEN N(Z)=6:F(2)=VN 

110 IF Y=78 THEN N(Z)e8:P(Z)2UN 
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ops 
114 
116 
118 
120 
122 
124 
126 
128 
130 
132 
134 
136 
138 
140 
142 
144 
146 
148 
180 
152 
154 
156 
158 
160 
162 
164 
166 
168 
170 
CUR 
174 
176 
178 
180 
182 
184 
186 
188 
190 
1972 
194 
196 
i98 
200 
202 
204 
206 
208 
210 





IF Y=74 THEN N(Z)59:P(Z)sUN 

IP Y=70 THEN N(Z)-11:F(Z)sUN 

IF Ys66 THEN N(Z)zs13:P(Z)-UN 

IF Y-62 THEN N(Z)-15:P((GE)-UN 

IF Y=58 THEN N(Z)-16:P(Z)sUN 

IF Y=54 THEN N(2)=18:;F(2)=VN 

IF Y=50 THEN N(Z)-220:P(Z)-VN 

IF Y=46 THEN М(2)-21:Р(29)-УМ 

IF Y=42 THEN N(£)=29!P(Z)=VN 

IP Y=38 THEN М(2)-25:Р(2)-УМ 

IF Y234 THEN N(2)=27:P(£)=VN 

IF Ys30 THEN N(Z)5228:P(Z)zUN 

IF Y=26 THEN N(Z)-30:P(Z)zUN 

REM DISEGNI DELLE NOTE 

COLOR 15,0/X=X+9 

IF Х>144 THEN GR 3;X=0 ELSE 148 
FOR LN-61 TO 93 STEP 8:MOVE(O,LN) 
DRAW (159,LN):NEXT 
MOVE(XK+5,Y+3)!DRAW(KX+5,Y+12) 

MOVE (X+2,Y+13):DRAW(X+9,Y+13) 
MOVE(X+1,Y+14):DRAW(X+4,Y+14) 
MOVECK+1,Y+15) : DRAWCX*4, Y-15) 
МОМЕ (Х+2,Ү+16) : DRAWCX43, Y*16) 

IF VN=é THEN RETURN 

IF VN=8 THEN СОТО 184 

IF VN-7 THEN SET(X*ó6,Y*17):RETURN 
IF VN-9 THEN SET(X*6,Y*17):GOTO 184 
IF VN-5 THEN SET(K+6,Y+17):GOTO 180 
IF VN-4 THEN GOTO 180 

IF VN-3 THEN SET(X*6,Y*17):GOTO 178 
IF VN-2 THEN GOTO 178 

IF VN=1 THEN GOTO 176 
MOVEOX*6, Y*6) : DRAUCX*8, Y 6) 

МОМЕ (Х+6,Ү+4) :iDRAUCX48, Y-4) 
MOVE(X+6,Y+2)!DRAW(X+8,Y+2) 
RETURN 

COLOR 0,0:MOVE(X*2,Y^14) 

ПОКАШ (Х+3,Ү+14)  MOVE(X42, Y*15) 
DRAW (X+93,Y+15):COLOR 15,0:RETURN 
REM BEMOLLE /DIESIS 

IF О-Х THEN SOUND 31;1:RETURN 
COLOR 7,0:0-Х 

IF VN$-"B" THEN N(Z)sN(Z)-1:GOTO 206 
IP VN$="D" THEN N(Z)SN()*1 
SETOX*7,Y*13) : SET(X*8,Y 412) 
SETOR*7,Y*18) t SET(X48,Y414) 

COLOR 15,0 :RETURN 

SET(X+7,Y+13) !RES(KX+8,Y+12) 
SETOX*7,Y415) : SBET(X48,Y414) 

COLOR 15,0:БЕТПЕМ 


PEEK e POKE a volontà 


Per LASER 110-210-310 


NO LISTING 


Ó)iSPRUZIUHI 

CHRICATE UN VOSTRO PROGRAMMA 
DA PRÜTEGGERE FER RENDERLO 
HON LISTREILE. 

CONTROLLATE CHE МИН ESISTA 
БІН” LR LINEA MUMERO £12 
CONTROLLO DA EFFETTUARE 

p Site ab 


IH CASO CONTRARIO FATE IN MODO 
DA RENDERE LIEERA LH (ІНЕН N.i 


DIGITATE LA LINEA N.1 
ESATTAMENTE COME SEGUE 


| POKES6884,17?:FOKE20885, 123: 
POEESI154, 205 :RUN:REM 


CONTROLLATE SE AVETE DIGITATO 


SENZA ERRURI LA (ІНЕН H.1 
PREMETE IL TASTO -RETURN- 
GIGITATE ANCORA QUANTO SEGUE 
FOKE 31467,255 +RETURN 

ЕПКЕ 31468, 255 +RETURN 

POKE 31502,6 +RETURN 

РПКЕ 31583,8 +RETURN 
CONTROLLATE SE LE OPERAZIONI 
SONO STATE ESEGUITE IN MODO 
CORRETTO, 

SCRIVETE:LIST E PREMETE IL 
TASTO -RETURN- 

IL COMPUTER TGNÜEERR^ IL 
COMANDO -і151-. 

ІН CASO CuNTRARIO AVETE 
LUMMESSO DEGLI ERRORI 
SFEGNETE IL COMPUTER E 
RIPETERE DALL'INIZIO, 


NE:IL PROGRAMMA SALVATO CON 
LA PROTEZIONE Ni LISTING 
ACCETTA SOLO UNA MULTA IL 


CUMADO -RUN- 

СИНЧЕ MON SI Рип" DARE IL 
COMANDO -EREAK- PER PUI 
RIPARTIRE CON -МІн- 


AUTO START 


REM 12345678381234556789n 
DATA À, 
GATA 128,125,1 
DHIH Іг8,148,128,12 
Әнін 128,H,8,8,562,1,5B8, 
САТА 128,195,46,55,281 
FüRHe3144BTO214 73 

RERD ЕМ:РОКЕЯ , М: МЕХТ 


FüEKE3BES4, zH8 


Dex] 


Di — 
AN] 
іш 
ға 
+. 
- 
= 
Nonis 
co c 
= 
S — 
— 
ion 
Don 


w 
= = = 


Rio C CH 
ыл о 


т“і 


SEZIONE 


SD CE 
m c 


ISTRUZIONI 
FATE ESEGUIRE IL FROGRAMMA 
CON IL COMADO -RUH- 
HSFETTATE LA COMPARSA DEL 
CURSORE LAMFEGGIANETE 
DIGITRTE CSRVE'NOME DEL FILE’ 
AVVIARE IL REGISTRATORE 
ED INFINE PREMETE IL TASTO 
-RETURN- 
FINITA LR REGISTRAZIONE 
FERMATE IL REGISTRATORE, 
TOGLIETE LA CASETTA SENZA 
RIRVVOüLGERE IL NASTRO, 
CARICATE UN VOSTRO PROGRAMMA 
E SRLVRTELO IN CODA AL 
PROGRAMMA AUTO START 


NE:IL PROGRAMMA CAUTO START) 
YA SALVATO CON IL NOME DEL 
PROGRAMMA DA SALVARE IN CODA, 


L Trucchi regole e consigli 


DI P. BRUNATO 


Per gli amanti del Laser 500 
ecco una nutrita serie di fun- 
zioni PEEK e POKE, oltre al- 
la spiegazione di preziose lo- 
cazioni di memoria e del loro 
uso. 


PEEK e POKE a volontà 


Per LASER 500 


POKE &H®02F,(@=0N / 1=0FF 
RALLENTA IL LISTATO 

MENTRE SCORRE SUL VIDEO 
A=PEEKC&H8A30) 

NELLA VARIABILE ih? 

SI LEGGE IL CODICE ASCII 
DEL TASTO PREMUTO, 

DA USARE COME ISTR.INKEYS 
POKE &H8836,(8 ^ 255) 
DEFINISCE IL NUMERO MASSIMO 
DI CRRRTTERI DR STRMPRRE 
PER LINER ¿SU STAMPANTE > 
POKE &H8837,(8 / 255) 
DEFINISCE IL NUMERO MASSIMO 
DI CRRRTTERI DR STRMPRRE 
PER LINER ¿(SUL VIDEO) 


POKE &H8834,t8 ^ 1) 

QUESTA LOCAZIONE RIGUARDA 
L'ISTRUZIONE  -PRINT- 

POKE &H8834,8:PRINT "TEST" 
VIENE STRMPRTO SUL VIDEO 
POKE &H8834,1:PRINT "TEST" 
VIENE STRMPRTO SU STRMPRNTE 
DEF.DELLA FINESTRA VIDEO 
POKE &H85E4,CÀ ^ 23) :NORD 
POKE š&H85E5,(0 ^ 23) :SUD 
POKE &H85E6,C(8 ^ 80) :EST 
POKE &H85E7.(B ^ 80) :OVEST 


POKE &HSSF5,CB ^ 38) 

RITARDO PER L'AUTO REPEAT 

РОКЕ &Ha8SF6,Ccü ^ 20) 

МЕШЕН РЕКОА ОКЕЕВ 
РОКЕ &HSSF?,CB ^ 20) 

VELOCITÀ' FLASH CURSORE 

POKE %Н85Ғ8,(4й / 49) 
WIESTAERUFESE SENO TORTE 
PERCHE' MERMETTE DI FAR 
ESEGUIRE UNA ü PIU' ISTRUZIONI 
CODIFICATE CON L'ISTRUZIONI KEY 
RIFERITE RI TASTI DI FUNZIONE 
L'ESECUZIONE RVVERRR' ALLA FINE 
DEL PROGRAMMA BASIC OPPURE 

ІН CASO DI RESET. 


148141:142:143144145146147 148149 
IFIIF2IFSIFAIFSIFSIF?IFBSIFSIFIO 
РПКЕ &HS83F1,X FINO RL &H840A, X 
THBEEIERODBEELE УНЕТЕВЕ ТСН SLE 
&4z2 VARIABILE INTERA 

4-4 VARIABILE SINGOLA PRECISIONE 
4*8 VARIABILE DOPPIA PRECISIONE 
PUKE ҰНӘЗЕН,2 REVERSE ON 

s nia REA AR o 

РПЕЕ %НВЗЕВ, 255 

ELIMINA IL MESSAGGIO -WAITING- 
РОКЕ &HSSFE,8 

RIABILITA IL MESSAGGIO -WAITING- 


COMPATIBILITY ...... 


340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 


550 


Ga 


^ Questo gioco (COMPATIBILITY) scritto 
^ per il Laser 500. 

^ Fer la versione 310,210,110 

^ e’ sufficiente eliminare le (FOKE) 

^ e riposizionare la stampa sul video 
^ con l'istruzione (PRINT 64). 


REM PPP T mcm "rcm rnm nm 
ЕЛЕК SMS ERA Ta TPB TS OI T Vena 

REM --- un gioco per constatare Mates 

REM --- se due persone possono 

REM --: convivere felicemente. 

REM LA кө: 55 (526: 9-9 (ке ТУР 979 өзе: 5 (5% GE X DE i trm mmm 

DIM A1(30),B1(30),A(12) 

GLS: POKE &H85E8,8:PRINT 

PRINT АВО COMPATIBILITA* жж” 

SOUND 10,4:S0UND 0,8 

CLS: POKE &H8S5E8,8:PRINT 

PRINT TAB(8): "ISTRUZIONI (S=SI,N=NO)": ІМРПТ ñ$ 
IF A$-"S" OR A$="ST" THEN 230 

IF A$-"N" OR A$="NO" THEN 290 ELSE 200 
CLS:PRINT:PRINT 

PRINT " QUESTO GIOCO REALIZZA UNA STATISTIGA":PFRINT 
FRINT " DI COMPATIBILITA' TRA DUE PFERSONE,":PHRINT 
PRINT " PRESE IN ESAME DAI, COMPUTER" 

PRINT :PRINT :PRINT 

PRINT " PREMI -RETURN- РЕК CONTINUARE":;INPUT V 
RESTORE:CLS:POKE &H85E8,8: PRINT 

PRINT TAB(10):"INIZIO GIOCO" 

FOR V=1 TO 500:МЕХТ 

ШАША Qin POST OST B 

DATA 212.244 .278,304. 934 

FOR Y=i TO 12:READ A(YO):NEXT:OLS:Yz0:YsY*1 
РБІМТ:РБІМТ" MASSIMO 10 CARATTERI" 

PEON pA NONPAOPPEIEPSONA TNG u: 

INPUT U$;PRINT 

IF LEN(W$)=0 OR LEN(W$)>10 THEN 350 

PRINT " DATA DI NASCITA di ":UW$:PRINT:PRINT 
PRINT " (GG,MM,ANNO) " 

INPUT D,M,Y 

IF D>31 OR М>12 OR р<0 OR М<0 OR Y<0 THEN 400 
E1-M:F1-D:G12Y 

GOSUB 970 

Z22=TK1=J+1 

PRINT:PRINT:PRINT 

PRINT" NOME PERSONA N'2": 

INPUT X$: PRINT 

IF LEN(X$)=0 OR LEN(X$)>10 THEN 470 

PRINT " DATA DI NASCITA di ":X$:PFRINT:PRINT 
PRINT " (GG,MM,ANNO) ": 

МРТ МОУ 

IF П>31 OR, М>12 OR D«O OR М<0 OR Ү<0 THEN 510 
E2-M:D2-D:G2-2Y 

GOSUB 970 
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560 P2=ABS(Z2-T) 950 INPUT V:OLS:GOTO 350 
570 K2=J+1 970 Yl=Y-1800 
580 FOR I=1 TO 6:PRINT:NEXT 960 GI-SINT(OY1/4) 
590 CLS:PRINT MESURE 128 ' GRAF.MODE GR D 98 ' GRRF.MüDE GR 3/4/5 
600 PRINT " ЖЖЖ ANALISI DI GOMPATIBILITA' XX£":PRINT 1900 Q3=1NT((Y1+200)7400) 148 ' 180 ' 
610 PRINT:PRINT " ":U$:TAB(210 : X$: PRINT:P c 
Vado Heri Т S Ер po F Өнжа O Yi THEN 1060 150 DATA &H21,5H88, HEB, &H3E, LHO? , &HD3, &4H43 118 DATA &H21,8H00,&HEB, &H3E, &HO7 , &HDI, &H43 
ЗОИ ЛЕДІ тав(210): PEOR SU INDE Due lu ME СӘННЕН Ma 160 DATA &H36,65,&H3E, tH05, &HD3, &H42, &HCS 120 DATA &H36,65,8H3E, &HO5, &HD3, &H43, &HC9 
Ber PONE rapa a T 1280:РБІМТ n iu ront Rd dr I 170 FOR А=%Н8980 TO &H898D 138 FOR ñ=%H8980 TO &H898D i 
660 PRINT:PRINT:PRINT 1050 T=4654Y1401-Q2409-K 180 READ B:POKE ñ.B:NEXT:R=&H8980 148 READ B:POKE ñ.,B:NEXT:R=š8H8980 
870 PRINT:PRINT:PRINT " PREMI «RETURN- PER CONTINUARE" :: INPUT V 1070 T=T4+A(M)+D-1 190 END {50 END 
580 РБІМТІЗЕР2 1080 IF Mz3 THEN 1100 
690 ARn-INT(Z/23) 1090 T-T«K 192 ' 168 ’ 
700 P3=ABS(INT((Z/23-AA)F23)) 1100 TF INT(Y1/4) <> Ү1/4 THEN 1130 : 194 ' 170 ' 
710 AA=INT(8/28) 1110 IP M»? THEN 1130 (IR MAT Ae HS MNT I AMET Кес S NE (GGI жалдан A E Que e E 
) S9=ABS(INT((Z/28-AA)#28)) 1120 T=T-1 
-INT(E/33) 1130 JeT-TXINT(TZ7) 200 ' LR PAGINA VIDEO DEL LASER 5250 198 ' LA PAGINA VIDEO DEL LASER 500 
capud p M UP Donde T EM 210 ' E’ COMPOSTA: NEL MODO GR в 200 ' Е’ COMPOSTA: NEL MODO GR 27425 
ens 100 (24834100/28)) INOI юмаа THEN и 228 ' DR TRE CAMPI DR 32 LINEE CIASCUNA 219 ' DA TRE CAMPI DA 64 LINEE CIASCUNA 
(100-(24084100/32)) 1170 IF Me3 THEN PRINT"MARZO": 230 ' ED 160 PIXEL 220 ' CON 168 PIXEL IN MODE GR 3 
ES INT PRINT x Ex MORALE UD UA НЕН Mop RAER TUEA @39Š ” -----------------------------.... 230 ' 328 PIXEL IN MODE GR 4 
doo Со (CNG LE MGE ERBEN IC 240 ' INDIRIZZI PER IL PRIMO CAMPO 240 ' — 640 PIXEL IN MODE CR 5 
810 PRINT " COMPATIBILITÀ’ di CARATTERE ":: 1210 IF M=7 THEN PRINT"LUGLIO": 250 ' POKE &H8981,c0 ^ 79) UK) BEY ---------...................... -- 
820 PRINT ROME A O MAU "%" PRINT TAN Lean 13: АЕ THEN PEINT HANTEN 41. 269 , POKE &H3982,Y { VEDERE TABELLA) 260 ? INDIRIZZI PER pi PRIMO CAMPO 
B3O PRINTANI ERIN ONION RT нео асо 270 ' POKE &H8988,X (Қай 0 ñ 255) 270 ' POKE &H9381,C0 ¿ 79) ас) 
50 PRINT " MEDIA di COMPATIBILITÀ’ nnd 1250 TF Ме11 THEN FRINT"NOVEMBHE" : 280 | ----------------------..-....-. 280 ' POKE S&H8982,Y “VEDERE TRRELLR 
PRO АБ u Sa 1289 IP_MS 42 THEN PRINT'DIGEMBRE!; 290 ' INDIRIZZI PER IL SECONDO CAMPO 290 ' POKE $H8389,X (NzDR O ñ 255) 
870 PRINT INT(ASX1000)/1000: :PRINT!PRINT 1270 RETURN 1 SERA 
380 FRINT: PRIN " PARERE DEL COMPUTER" (PRINT 1289 BEES THEN PRINT"MERGOLEDI": 300 ' POKE &H8381,(80 / 159) acK) ЗЙЙ ” -------------.------....... “a 
890 IF AS=%0 AND AS<=10 THEN PRINT " SPARATEVI 111% 1290 IF J=2 THEN PRINT"GIOVEDI": 318 ' POKE &HS992,Y «VEDERE TABELLA) 318 ' INDIRIZZI PER IL SECONDO CAMPO 
900 IF A510 AND А5<- NP " " 1300 IF J=3 THEN PRINT"VENERDI": j STEM 
ўво 1с 2210 AMD snn 7 LASCIATE rervene 1200 Ir эта THEN FEINT! VENEROL 320 ' POKE н88/%/ CXSDA 9 ñ 255) 320 ' POKE LMe391,C90 / 159) «ОЮ 
220 IF AS260 AND А8<-80 THEN PRINT " OTTIMA COPPIA" 1320 IF 1-5 THEN PRINT"DOMENICA": 330 ' ------------------- iS ss ss sa ке == wawa wa wa ен тк 330 ° POKE à$H83382,Y ¿VEDERE TABELLA) 
930 IF AS*80 THEN PRINT " COPPIA PERFETTA !" 1330 IF 1-6 THEN FRINT"LUNEDI": 335 ' INDIRIZZI PER IL TERZO CRMPO 340 ' POKE 948990, ШЫ à Rñ 255) 
940 PRINT :PRINT :PRINT 1340 IF 1-7 THEN PRINT"MARTEDI": Қ ; SERALI coger ai ur Sp rct d 
950 PRINT " PREMERE -RETURN- PER UN ALTRO ESAME": 1350 RETURN 340 ' POKE &H8981,(160 ^ 239) SUR) Cit ао ара 
350 ' POKE &H8982,Y <VEDERE TABELLA) 368 ' INDIRIZZI PER IL TERZO CAMPO 
360 ' POKE šH8988,X (XsDR à A 255) 378 ' POKE &H8381,(168 ^ 239) mi X) 
‘3708’ CALL A (ESECUZIONE ) 388 ' POKE &H8982.,Y (VEDERE TABELLA) 
380 ' -----------------------... mm 390 ' POKE &H93898.X (K=DA B A 255) 
400 ' TABELLA INDIRIZZI ү) х LINEE 4880 ' CALL ñ CESECUZIONE?) 
410 ' 1=š%HEQ  224HEB8  3s&HFO 4»s4HF8 41ü ' -----------------...........м... 
420 ' 5-&HE1  O»&HES ?7s&HFi BS=&HF9 49 ' TABELLA INDIRIZZI (Y? + LINEE 
430 ' 9=&HE2 10=&HEA 119&HF2 12%=&HFA 438 ' 1=&HC0 2=&HC8  3=%HDO 4=8HD8 
PAROLE ; 440 '132&HE3 14*"&HEB 1534HF3 16=%HFB 448 ' z i S=&HES  ?s&HFO  Ss&HF8 
490 '178&HE4 18*&HEC 199&HF4 2024HFC : 18z&HC8 11=%HD1 12=8HD9 
R 
PP ola 460 '21=&HE5 223&HED 23=&HF5 24=%&HFD A '1: Е 15=&HF1 16=&HF3 
470 '25=%HE6 26=&HEE 27=&HF6 28=&HFE Sz&HCR 19=%HD2 20=&HDR 
480 '293&HE? 30=kHEF 31=%&HF? 32=8MFF НА 23=&HF2 24s&HFR 
C3 26=&HËB 275&HD3 28=%&HDB 
- 3 38z&HEB 31=%HF3 22=&HFB 
ій REM PER LASER SEA 5 
20 REM PAROLE COPYRIGHT MARCELLO HERI - SAROHHO 34=&HCÜ 35=&HD4 363&HDC 
ай CLS SS8z&HEC 29=%HF4 40=šHFC 
40 Xzl6:vYziz:GOSUB TAO:PRIMT "PAROLE" 358 "disXHCS 42=&HCD 43=%HD5 44z&HDD 
Se FOR Іші TO ISC0:MEXT J 548 !45S=8&HES 45=&HED 4?=%HF5 48=&HFD 
оо 550 '43=&HC6 SO=&HCE S1=%HD6 52=&HDE 
an i "Ir. ‘PROLE а ETTERE wifi тер) Я “hr н; 96H “J35 SSz&HF& S6z&MFE 
E || GLIHTE PAROLE DI SEI LETTERE wir INSERIRE IM MEMORIA ";G El = 
99 DIM HELG) s? ) S3z&HD? 60=š%HDF 
S88 “біз%НЕР G2z&HEF 63=%HF? 64=&HFF 


HAT Tet esi In E) 
118 INPUT "SCRIVI UNE FAROLA"; HEZ) 
120 K=LEHiH iZi) 
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L Trucchi regole e consigli 


DI P. BRUNATO 


Come usare il video del Laser 500 
con la funzione POKE 


Il listato nr. 1 permette di usa- 
re la pagina video in modo te- 
sto per scrivere quello che 
vogliamo con la funzione po- 
ke. 

Per prima cosa é necessario 
precisare che il video ë divi- 
so in tre fasce di 8 righe 
ognuna e con 40 oppure 80 
colonne. 

Il programma effettivo ë la 
parte compresa tra le linee 
110 e 140, tutto il resto sono 
commenti che illustrano il fun- 
zionamento del programma 
stesso. 

Esempio: per inserire la lette- 
ra A (il cui codice ë 65 in de- 
cimale) nel primo campo alla 
seconda riga, quinta colon- 
na, potremo digitare le POKE 
precisate da riga 250 a riga 
270 inserendo il valore X = 5 
e Y 22, e ponendo il secon- 
do X uguale al codice ASCII 
della lettera A. Per eseguire 
richiamare CALL A. 

In particolare, il valore di Y 
deve essere inserito come 
esadecimale contando dal 
numero &HFGF, che in deci- 
male equivalgono ai valori da 
248 a 256. 

Il listato nr. 2 invece riguarda 
la pagina grafica in cui valgo- 
no le stesse regole già viste 
per il listato nr. 1. Identico di- 
scorso per il listato nr. 3. 
L'unica differenza è che l'in- 
dirizzo Y varia a secondo del 


tipo di grafica scelta, per cui 
si hanno a disposizione un 
numero maggiore o minore 
di righe per ogni campo. 
Anche qui è necessario dare 
le POKE per il valore di X, di 
Y e del punto o serie di punti 
che si vogliono accendere. 
Esempio: GRAFICA GR 0: 
vogliamo accendere un pun- 
to nella fascia centrale, ossia 
il secondo campo. 

Il numero della colonna può 
variare da 80 a 159 decima- 
le. Il numero di riga può as- 
sumere i valori compresi tra 
EO esadecimale e FF, ossia 
tra 224 e 255, in cui 224 rap- 
presenta la prima riga e 255 
l'ultima. Per le altre due fasce 
vedere lo schema. 

Il listato nr. 3 riguarda la gra- 
fica GR3, GR4 e GR5 ed ha 
le stesse modalità di uso spie- 
gate per la grafica GRO, solo 
che cambiano i valori. Vi con- 
sigliamo di fare diverse pro- 
ve e di comunicarci i risultati: 
ricordate tuttavia sempre che 
per l'esecuzione è necessa- 
rio richiamare con CALL A la 
routine. La variabile A deve 
avere il valore esadecimale 
&H8980 come precisato alla 
riga 140 del Listato nr. 1. 


98 

180 
118 
120 
138 
140 


'* MODE TESTO 

DATA &H21,&H90,&HF8,&H3E,&Ho?,&HD3,&H43 
DATA &H36,&H34,&H3E,&H05,&HD3,&H43, &HC9 
FOR A=&H8980 TO &H898D 

READ B:POKE A,B:NEXT:A=8H8980 


150 ' 


160 
170 


"t 


DNA Lar 


DO o 


CO O2 ҚАЗ CO LO Co іі Оз 


uo 


a 
C CO GO Co Co CO Si 


* LA PAGINA VIDEO DEL LASER 500 

' E' COMPOSTA: NEL MODO TESTO 

' DA TRE CAMPI DA 8 LINEE CIASCUNA 
* ED 80 COLONNE PER TEXT 89 

ў 40 COLONNE PER ТЕХТ 40/5ТЕР 2 
^ INDIRIZZO PER IL PRIMO CAMPO 

^ POKE %Н8981,(0 ^ 79) =< X) 

° POKE &H8982,C&HF8 7 &HFF) CY) 

"^ PŪKE &H8388,* (K=VALORE ASC) 
* INDIRIZZO PER IL SECONDO CAMPO 

* POKE &H8981,(89 ^ 159) UNI 
* РОКЕ &HESBB.C&HFB8 ^ ӚНЕР) =) 
* РОКЕ š$H8383 x CS=VALORE ASCH 
* INBIRI220 PER IL TERZO CAMPO 

* POKE &H8381,C168 ^ 239) sN) 
° POKE &H8982,(&HFS 7 &HFF) =<) 
“ PüKE %НВ988,Х CREVRLÜüRE ASC) 
CACA CESECUZIGNE?) 


250 
ZIA 
BAD 
319 
зей 
230 
340 
350 
DEA 
ҒАУ) 
380 
390 
4n 
415 
420 
430 
440 


did х= 


dea 
470 
460 
420 
San 
219 
520 
530 
5420 
BED 
5650 
570 
soo 

220 
en 
ій 
бей 
бөзі 


O PRINT СНЕЖ (250; "IMDCOVvIMR LA PAROLA!" ; 


IF КУ THEH GOSUE F50/GOT0 1168 
THES 

FOR Z=% TO Й STEF-1 

A$=H$ iZ 1 

IF Zz&à THEN РБІНТ 
CLS 

Kalgi Y=: GAZIE FAO REIT пффф 
PRINT CHRE£(üZG1; SP (EU dame" 


“ЕНІМТ THELTEJUFIMITE LE PAROLE" SENO 


SIMPBLT ME 
EzLEH (HE 1 


IF B2 THEH GÜOZLE TZ2e:GOTO 12386 


à SOUND 25,5 


AME=LEFTE (WE, 1) 
БЕФ=МІСФ ТЧ, 
COESMIDE (ME, 
DESIDE CHE, 
EEE=MICE IHE, 
FFE=MIO IWE. 
H1&=LEFT$(F#, 1j 
G1£=MIC$ IAF, 2,11 
(1ЖшМІПЖІНЖ, 2.1) 
DiE=MI0k (Ag, 34.11 
Е1Ж-МІСЖІНЖ,Ф,1) 
Е1%«МІП%ІН%,6,1) 
IF AR$= BI£THEH 45 
IF BB$=Bl1&THEMH 4 
IF CCE=SCIETHEN 4: 

536 

г 


E E B i m 


Е 
ор 
DE 


IF 00£=D01£THEM 
IF EE#=E1#THEH 
DEMERTEUdUETIEDIMEE 
IF R#=# THEM £78 
FOR Tzi TO zmen:HMEXT I:GOTO тай 
Z1-5:"vzi1z:GÜzHE T4dg8:FRIMT MAL 
GOTI ce 

Хас1- de 15/0506 ТАЙ: FRIHT BE 
GATA 390 

Х=21-3 = 121050506 Tae: РКІНТ DIE 
GATA ава 

AmzEl-ZivY-1z GOUsUE Z40 FFIHT ODDE 
GOTI dia 

X-Zi-i:wvziz:GOüsHE #40:/PRINHT EEF 
GOTO 4ze 

Х=21:7=12: 050508 TdO:PRIMT FFE 
GOTO 456 

X=9 x17:GÜSLUE 7468:PFRIMT "ЕВА !! HAI THEW TATO ":PRIBMT 
FOR P=9 TO 16 STEF SALIS 1+F 3: 

IMELT " 
ШЕ ЭЕ ТНЕНІ S zA 
ERI A E Ир 1 рр) 

jaysi Z 

(AE 

ЕБІМТ :PRIHMT "IL GIOCO CO 
PRIHT "FRIMA D^IMIZIWHEE C 
PRINT " IHUCwIMREE ШЕШЕН 
PRINT "QUESTO СЕТЕ E: RE FATTO DE MHA FERIHA СНЕ HAH РЕВТЕСІРН 
РБІМТ " RICERCA DELLE РЕВЕ PER СНЕ SZCERIVERRH^ LE RISPOSTE DEI 
PRINT ІНВПЕСТЕ Ub rt HB Fou BOT M BU 

РБІМТ СРБІМТ ТЕБІСІЗРЕБ ІМІСІНБЕ PREMERE Un TASTO! 

ЭЗ“ІНКЕТЕСІК Әже! THEN 2108 
БЕТПЕН 

FRIHT "LA FAROLA DEVE EZSERE DI 
PRINT СНЕЖ СНЕ СЕЈ CHRE 


Sodas 


m 





THERE (МН FARILA ПІ 
ІМ MEMORIA LE PAROLE 
Ч“ЕОННЦ, " 





HELL TIC 











“БЕТМЕН 





IBS PAPAE 





SELMLETERE 
DA"; 


ЕЕЕ; 
CONCORRENTI 


zog E TEE EE PER Izi TO 100A: НЕХТ I: FETIFH 
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ашшь Jl Laser nascosto 


| Das Posta е telefono .......... 
___ ЧЕТ РОЗА E LEIETUNDO cu oea nozon 


LASER 500... un LIST a puntate 





Il computer ë una fonte ine- 
sauribile di scoperte, ed an- 
che chi se ne occupa profes- 
sionalmente scopre ogni gior- 
no cose nuove. Per questo é 
necessario dedicarsi con 
passione a questo straordina- 
rio strumento di lavoro. 
L'ultima piacevole novità per 
il LASER 500 ci é stata comu- 
nicata dai bravissimi Agosti- 
no e Lorenzo Martino, i due 
fondatori del primo LASER 
COMPUTER CLUB FANS, 
che ha sede a Reggio Cala- 
bria. 

E una scoperta casuale, e 


per questo ha ancora più va- 
lore. 

Come ben sappiamo per li- 
stare un programma è neces- 
sario usare il comando LIST 
che può essere dato in diver- 
si modi: 


LIST se si vuole il listato di tut- 
to il programma (questo ri- 
chiede di bloccare e sblocca- 
re lo schermo con la barra 
spaziatrice per evitare lo scor- 
rimento continuo). 


LIST più numero di riga per 
listare una sola riga 


LIST nn-mm permette di lista- 
re dalla riga nn alla riga mm 


LIST nn- permette di listare 
da una riga alla fine del pro- 
gramma 


LIST -mm permette di listare 
dall'inizio del programma, fi- 
no alla riga mm 


A tutte queste possibilità si 
aggiunge la scoperta dei no- 
stri amici: 


LIST .- (LIST seguito da un 
punto e da un trattino) 


Questo comando permette di 
proseguire nel listato di un 
programma dopo che il lista- 
to stesso ë stato interrotto. 


ESEMPIO: con il comando 
LIST si richiede di listare tut- 
to il programma, e lo si inter- 
rompe con il tasto di BREAK: 
ora per proseguire dal punto 
di interruzione, senza dover 
ricordare il numero di riga ë 
sufficiente dare il comando 
LIST .- 

Il computer riprenderà il lista- 
to dal punto in cui era stato 
interrotto. 


PRINT AT per LASER 500 





Molte persone ci hanno ri- 
chiesto di chiarire una volta 
per tutte come sia possibile 
posizionare il cursore in un 
punto del video predetermi- 
nato. 

Con il LASER 500 è possibi- 
le indicando la riga e la colon- 
na del video. Per semplicità 
chiamiamo X la colonna e Y 
la riga. 

Per posizionare il cursore è 
necessario comunicare al 
computer una SEQUENZA 
DI ESCAPE come segue: 


PRINT 
CHR$(27)CHR$(161)CHR$ 
(32 + X)CHR$(32 + Y) 


20 


Questo comando può essere 
usato in qualsiasi punto del 
programma, indicando di vol- 
ta in volta la X e la Y, ma per 
una buona programmazione 
consigliamo di operare come 
segue: 


Inserire in un punto del pro- 
gramma a Vs. scelta una bre- 
ve subroutine (noi abbiamo 
scelto la riga 5000): 


5000 REM **** POSIZIONA 
IL CURSORE **** 

5010 PRINT 
CHR$(27)CHR$(161)CHR$ 
(32 + )CHR$(32 + Y); 

5020 RETURN 


Questo Vi permetterà di po- 
ter posizionare il cursore in 
qualsiasi punto del video, ed 
in qualsiasi parte del pro- 
gramma ricordando solo di 
cambiare i valori di X e di Y 
e di richiamare la SUBROU- 
TINE 5000 


Esempio: 


10CLS:X=10:Y=10:GO- 
SUB 5000 : PRINT "CIAO" 


oppure: 


300 FOR X=0 TO 10: Y=X 
310 GOSUB 5000 : PRINT 


(CX) 


320 NEXT X 


Ed ora tocca a Voi usare con 
profitto, seguendo una buo- 
na tecnica di programmazio- 
ne, questa importante istru- 
zione. 


NOTA: Altre importanti SE- 
QUENZE DI ESCAPE sono 
riportate, assieme a quella 
appena citata, sul manuale 
del LASER 500. 

Ricordate che per consultare 
il manuale e scoprire nuovi 
segreti del Vs. computer oc- 
corre solo la Vs. BUONA VO- 
LONTA e... non cercate scu- 
se dicendo che é scritto in in- 
glese, perché il BASIC e gli 
esempi riportati sono facil- 
mente comprensibili. 


І primi LASER COMPUTER 
CLUB regionali sono ormai 
una realtà! Segnaliamo in- 
nanzitutto il Laser Computer 
Club di Reggio Calabria, fon- 
dato già da parecchi mesi e 
decisamente vitale, vista la 
produzione di giochi per La- 
ser 310 realizzata (qualche ti- 
tolo indicativo tra i migliori, a 
nostro giudizio, pervenuti in 
redazione: Battle Bombs, 
Battle Naval, Morra Cinese, 
Barone Rosso). 

Attualmente questo Club si 
occupa anche del Laser 500, 
di cui ha già realizzato un pro- 
gramma di Totocalcio. 
Analogo programma di Toto- 
calcio é stato invece realizza- 
to per il Laser 310 dal Laser 
Club di Brindisi, che pubbli- 
ca anche un ciclostilato dal 
nome “Laser News Magazi- 
пе”. 

Altri programmi e giochi so- 
no stati realizzati e pubblicati 
da questo Club. 

Mentre attendiamo segnala- 
zioni della nascita di altri La- 
ser Club, ci permettiamo di 
dare alcuni suggerimenti: il 
lavoro di equipe é certamen- 
te la forma migliore per cre- 
scere nella conoscenza del- 
l'informatica in quanto svilup- 
pa fantasia e creatività. Ab- 
biate però l'accortezza, nella 
realizzazione di programmi, 
di essere precisi e pignoli: 
d'accordo che si lavora in Ba- 
sic (quasi sempre), ma non 
bisogna dimenticare l'Italiano 
(inteso come lingua). 
Provate e riprovate i pro- 
grammi realizzati: come ave- 
te appreso anche dal corso, 
il programma deve essere 
realizzato in modo tale che 
anche un IDIOTA possa far- 
lo funzionare (qualche pro- 
gramma pervenutoci, impat- 
ta quasi subito: non vorrete 
mica sostenere che siamo 
degli idioti, vero?). 

A proposito dei programmi 
che ci inviate: ne abbiamo ri- 
cevuti alcuni scritti con stam- 


pante, alcuni scritti a macchi- 


na, alcuni scritti a mano: di 
una cassetta con il program- 


ma nemmeno l'ombra. Come 
dice bene il nostro direttore, 
non abbiamo assolutamente 
il tempo di ridigitare tutto, an- 
che se, dando una scorsa a 
qualche listato, alcuni pro- 
grammi sembrano buoni e 
potevano essere pubblicati. 
Meditate per il futuro. 


VENTIMIGLIA IVANO ci ri- 
scrive ponendo altri quesiti: 
ad alcuni abbiamo già rispo- 
sto nel numero 1. In sintesi, 
pone domande sul suono del 
Laser 310, la velocità del suo 
microprocessore e quella del- 
la trasmissione dati da e per 
il registratore. Molto breve- 
mente, il microprocessore la- 
vora a 3,7 MHz, mentre per 
la trasmissione dati l'interfac- 
cia è quella standard (600 
baud). 

Per lui, e per i patiti della mu- 
sica, diamo alcune routine da 
inserire nei programmi (sia in 
L.M. e sia in Basic) a pag. 10 


GARATTI STEFANO di Lodi 
desidera ricevere il program- 
ma POKER, e con lui altri: ab- 
biamo allora pensato di pub- 
blicare su questo numero del- 
la rivista il listato del program- 
ma POKER 310 realizzato da 
Agostino Martino di Reggio 
Calabria. Speriamo siate sod- 
disfatti. 


А МОНІ ANDREA rispondia- 
mo implicitamente con alcu- 
ni servizi trattati in questo nu- 
mero, precisando che, in me- 
rito al Modem, tutto è possi- 
bile nella vita, ma che a quan- 
to ci risulta non è previsto per 
il Laser 310. 


Invitiamo invece COLAN- 
DREA MICHELE di Monte di 
Procida, RE FABRIZIO di Ma- 
cerata, SCOGNAMIGLIO 
DONATO di Ercolano a leg- 
gere con più attenzione il nr. 
0 (o a richiedercelo) e il ma- 
nuale, perché lì si trovano le 
risposte ai loro problemi. 


MINGRINO ENRICO, via 
Don Grazioli 46, 10137 TORI- 
NO desidera vendere l'e- 
spansione di memoria 16 K 
per Laser 110. Se qualche 
lettore desidera acquistarla, 
può scrivere all'indirizzo indi- 
cato. 

Ci chiede inoltre chiarimenti 
su l'istruzione INP (X), OUT X, 
Y e sulla funzione A = USR (X). 
Come avrai notato, le istruzio- 
ni INP (X) e OUT X, Y sono 
già state spiegate nella posta 
del n. 1 (risposta a sig. Zim- 
balatti). Comunque ripetiamo 
che hanno lo scopo di comu- 
nicare (OUT) o ricevere (INP) 
valori dalla porta di uscita, ri- 
ferita ad esempio ai Joystick, 
oppure al Drive o alla Stam- 
pante. 


CAMPAGNA ABBONAMENTI !!! 


La rivista LASER COMPUTER CLUB, inizialmente, avrà una cadenza bimestrale. Ogni numero co- 


sterà L. 4.000. 


L'istruzione USR (X) serve 
per richiamare una funzione 
di tipo USER ed eseguire una 
routine in Linguaggio Mac- 
china. Se continuerà a seguir- 
ci scoprirà tutti i possibili usi 
di tali funzioni leggendo e di- 
gitando i programmi che pub- 
blichiamo. 


PARISI MARTINO, di Tirano, 
pone quesiti molto interes- 
santi a cui rispondiamo volen- 
tieri: 

— Il Disk Drive può essere 
utilizzato contemporanea- 
mente alla espansione di me- 
moria. 

— In merito alle condizioni di 
programmazione con cui si 
possano gestire i Files Ran- 
dom su Drive, la risposta sa- 
rà data in uno dei prossimi 
servizi in quanto richiede lun- 
ghe spiegazioni. 

— Per la lettura dati dal regi- 
stratore, è necessario esegui- 
re un controllo dei dati che si 
scrivono, ed è necessario 
leggerli nello stesso ordine in 
cui sono stati scritti. E inoltre 
indispensabile che non siano 
scritti dati alfanumerici 
(STRINGHE) di valore nullo, 
poiché in lettura qual dato 
non verrebbe più trovato ed 
il registratore resterebbe in at- 
tesa di trovare quel dato 
mancante perché non scritto. 


Può essere richiesta alla ARCA s.a.s. - Laser Computer Club - via Valleggio 2, 22100 COMO, 
allegando L. 4.000 in francobolli, oppure sottoscrivendo l'abbonamento annuale (1 numero GRATIS!!). 


Desidero sottoscrivere un abbonamento annuo alla rivista LASER COMPUTER CLUB (6 numeri, L. 20.000). 
Per il pagamento dell'importo dovuto attendo vostro bollettino di versamento postale. 


Vogliate inviare la rivista al seguente indirizzo: 


Cognome 





Via 





Prov. 





Nome 





Cap. 


Data ` Firma ` 








La presente offerta ë valida solo per l'Italia. 
SI RACCOMANDA DI SCRIVERE IN STAMPATELLO. 


Ritagliare e spedire in busta chiusa a: 


ARCA s.a.s. - LASER COMPUTER CLUB - Via Valleggio 2 - 22100 COMO 
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IL LASER NASCOSTO: 
LASER 500... un LIST a puntate 
PRINT AT per LASER 500 20 





Cari amici Laseriani, \ 

la rivista sta ottenendo un notevole successo, gra- 
zie soprattutto a coloro che hanno richiesto l'abbo- 
namento: ció permette a noi di poter continuare nella 
pubblicazione e a voi di vedere ogni volta il nume- 
ro di pagine aumentare, con nuovi listati e nuove 
iniziative. 

Piccoli cambiamenti sono già stati approntati nel nr. 
scorso della rivista; altri seguiranno in questo e nei 
prossimi numeri. 

In particolare, ci è stato da più parti richiesto di pub- 
blicare immagini reali dei giochi proposti e non di- 
segni o foto fantasiose, tanto per stuzzicare la fan- 
tasia. A parte il fatto che, a quanto mi risulta, ben 
pochi forniscono l'immagine di ció che compare sul 
video ad una certa fase del game, noi abbiamo ac- 
cettato la sfida, come avete potuto notare sul nu- 
mero precedente, e continueremo ad accettarla, ben 
consci delle capacità grafiche dei Laser, in partico- 
lare del 500. 

L'equipe dei miei collaboratori sta analizzando i que- 
stionari allegati al numero 0 che davvero molti vo- 
lonterosi ci hanno inviato: sul prossimo numero i ri- 
sultati del test e gli orientamenti che la rivista potrà 
prendere. A questo proposito vorrei ricordare a tut- 
ti, e per il futuro, che l'Amministrazione Postale pre- 
vede tariffe ben precise per l'invio della corrispon- 


denza: si prega di informarsi attentamente sul fran- 
cobollo da utilizzare onde evitare che ci giungano 
lettere tassate, in quanto a partire da oggi non ver- 
ranno più ritirate. 

Il numero 1 della rivista è giunto a tutti un po’ in ri- 
tardo, dovuto a disastrosi iter burocratici con vari uf- 
fici comunali e provinciali: ce ne scusiamo. 
Incominciano ad arrivare anche i primi listati proposti 
dai lettori: in questo numero ne abbiamo inseriti al- 
cuni per premiarli dell impegno, e per spingere an- 
che altri a seguire il loro esempio. Ricordiamo a tut- 
ti che il COMMENTO deve essere breve, chiaro, sin- 
tetico ed esauriente (come se fosse facile), non il 
PROGRAMMA, che deve essere realizzato con la 
maggior cura possibile, la migliore fantasia, la più 
alta spettacolarità per renderlo davvero unico! 

A questo proposito, ribadiamo ulteriormente che 
qualsiasi programma intendiate mandare deve es- 
sere SU CASSETTA e deve essere LISTABILE (quin- 
di niente simboli grafici o altri caratteri non listabili). 
In mancanza di questi requisiti indispensabili, non 
verranno nemmeno presi in considerazione. 
Buona lettura!!! 


IL DIRETTORE 


N.B.: | listati, i commenti e le cassette NON si 
restituiscono 


MINE KILLERS | terroristi semi- 
nano pericolose mine in un im- 
portante porto. 

Voi siete i custodi della tranquil- 
lità di migliaia di persone, e del- 
la Pace nel paese. 

E necessario eliminare tutte le 
mine dal porto, facendo atten- 
zione a non colpire le numero- 
se navi che transitano. [1 
14 








SAY-MON Divertente gioco per 
esercitare i vostri riflessi e la vo- 
stra memoria. 18 





LASER 500 PAINT UTILITY 
Questo programma consente 
di realizzare qualsiasi disegno, 
in alta risoluzione, con 16 colori 
a disposizione. 

Alcune delle funzioni principali: 
— Disegnare, cancellare, cor- 
reggere punto per punto. 

— Colorare un'area con uno dei 
16 colori disponibili. 

— Salvare su nastro il disegno 
fatto. 

— Richiamare da nastro il dise- 
gno precedentemente salvato, 
con possibilità di correggerlo e 
salvarlo di nuovo. 

— Inserire un qualsiasi testo nel 
disegno in alta risoluzione. 

| disegni realizzati con questo 
programma potranno essere 
usati in altri programmi, di gio- 
CO, Statistica, o altro. O 
15 





BOXE (per LASER 500) Incon- 
tro di pugilato sui 9 round. Evitare 
di finire spesso al tappeto. Solo 
con joystick. 19 


MOON LANDER La luna è or- 
mai diventata una base avan- 
zata del pianeta Terra ma ogni 
viaggio verso il satellite ripro- 
pone il problema della discesa 
sul suolo lunare, che deve es- 
sere eseguito con competenza 
dagli astronauti. 

E necessario evitare gli asteroi- 
di che sfecciano numerosi 
nell'oscurità dell'Universo. 
Occorre controllate la velocità 
di impatto, per non distruggere 
il modulo lunare. 

Le manovre non sono semplici, 
a causa della ridotta gravità 
della luna (circa 1/6 di quella 
terrestre). 

BUONA FORTUNA!!! O 
16 





NOTA BENE 





Software per il vostro 
LASER 500 


ТТУ LEO MUTI VI fi yon 





CITY INVASION Entusiasman- 
te gioco spaziale, con scenario 
in grafica ad alta risoluzione, ed 
ambientazione molto suggesti- 
va. 

Gli invasori sono arrivati a Co- 
mo!!! 

Il Tempio Voltiano, che conser- 
va le più importanti documen- 
tazioni dell'attività di Alessan- 
dro Volta, è minacciato dagli 
invasori. 

E necessario intervenire tem- 
pestivamente con tutti i mezzi а 
disposizione, per difendere il 
tempio, ed il mondo. 
17 














Per ordini di importo superiore a L. 40.000 spese di spedizione 
L. 2.000. Per ordine di importo inferiore a L. 40.000, spese di 


spedizione al costo. 


Per ordinare i programmi ritagliare o (fotocopiare) il tagliando, compilar- 
lo e spedirlo all'indirizzo indicato. 



























































| LASER COMPUTER CLUB E 
| C/O W. SCHEIDEGGER & CO. S.a.s. | 
Via Valleggio, 2 - 22100 COMO (Tel. 031/275088) 
| Desidero ricevere i seguenti giochi a L. 15.000 cadauno: | 
| (indicare i codici) | 
] 01 02 [] 03 04 05 06 ] 07 
|108 nos mio 11 12 013 ола | 
| [3 15 16 П 17 O 18 O 19 | 


| per una spesa totale di Lr | 
Pagherò contrassegno l'ammontare dovuto, più spese postali, al 
| ricevimento di quanto ordinato. | 


COGNOME iii ii 
| HOME. etel | 
P MEME Ñ: sasa | 
| CAP —— CITTÀ cniin reri | 
с ORE antica Dota eate hated | 

lisi 


Nuovi entusiasmanti 
iochi per il vostro LASER! 





MATHS FUN I Genera diver- 
tenti problemi di matematica per 
bambini in età prescolare. So- 
no possibili diversi livelli di 
difficoltà. 

01 


SPACE VICE Una morsa spa- 
ziale stringe la tua astronave. Di- 
Struggi il maggior numero di ro- 
bot prima di essere stritolato... 
e forse puoi salvarti. 

10 





ALIEN Mostri spaziali attacca- 
no la terra. Il grande avvoltoio 
cercherà di distruggerti.... 


12 


we "saw. 


c! 


CRASH Controlla la tua auto e 
cerca di prendere tutti i tesori 
che incontri sul percorso cer- 
cando di evitare le altre automo- 
bili. 
02 


POWER LOADER Occorre cari- 
care la massima energia dalle 
basi spaziali evitando di essere 
disintegrati dagli scarafaggi 
alieni. 11 
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BOXE Incontro di pugilato sui 
7 round. Evitare di finire spes- 
so al tappeto. Solo con joystick. 


13 


AX = B i FIND X 


MATRIX Permette di eseguire 
calcoli matricali (somma di ma- 
trici, moltiplicazioni per un valore 
scalare, moltiplicazione fra ma- 
trici). 

03 


TENNIS Gioco di azione tridi- 
mensionale. Si può giocare con- 
tro il computer oppure tra due 
giocatori. Utilizzabile sia tastie- 
ra sia joystick. 05 


CIRCUS La vita dei tuoi amici è 
nelle tue mani. Sono acrobati del 
circo e la loro sicurezza dipende 
dalla tua abilità. Un gioco di azio- 
ne in linguaggio macchina. 07 





COSMIC RESCUE Pericolosa 
missione nel cuore del sistema 
solare meteoritico. Solo i migliori 
sopravvivono e realizzano il sal- 
vataggio cosmico. Solo con 
Joysticks. 64 





6 IN ONE FUN 6 giochi per 
esercitare la mente. Gare di de- 
duzione, giochi di calcolo, indo- 
vinelli. Si gioca contro il compu- 
ter. 06 





F - 104 Gioco di azione nei cieli 
alla caccia di aerei nemici. Molto 
veloce, prevede 3 livelli di difficol- 
tà. Solo con joystick. 08 
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